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IDENTIFICATION 


PRODUCT CODE: AC-8516G-MC 
PRODUCT NAME: CZDLAGO DL11-E,C/D OFLNE TST 


DATE: JUNE 1978 
MAINTAINER: DIAGNOSTIC GROUP 
AUTHOR: ROBERT WHITTON 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OP ITS 
AFFILIATED COMPANIES. 

COPYRIGHT (C) 1972,1978 BY DIGITAL EQUIPMENT CORPORATION 

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL PDP UNIBUS MASSBUS 
DEC DECUS DECTAPE 


SEQ 0001 
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1. ABSTRACT 


TWO SEPARATE DIAGNOSTIC PROGRAMS ARE PROVIDED FOR THE DL11-E 
(ASYNCRONOUS MODEM INTERFACE), CZDLA (DL11-E OFF LINE 

TESTS) AND CZDLB (DL11-E ON LINE TESTS). THE OFF LINE 

TEST TESTS ALL DL13-E LOGIC . THE OFF LINE TESTS DO NOT REQUIRE THE 
USE OF A MODEM, HOWEVER A SPECIAL JUMPER CONNECTOR H315 IS REQUIRED. 
THE GN LINE TESTS ARE ESSENTIALLY DATA RELIABILITY TESTS RE- 
QUIRING THE USE OF MODEMS AND A SUITABLE TERMINAL DEVICE. 


THE DL11-C AND DL11-D CAN ALSO BE TESTED WITH THIS OFF LINE TEST. 

THESE ARE BOTH TESTED IN MAINTENANCE MODE AND ONLY THOSE TESTS 

MARKED C,D IN THE TEST NUMBER ARE EXECUTED. IN ORDER TO TEST C AND D 
VERSIONS IT IS NECESSARY TO MODIFY THE TABLE AT LOCATION 1300 A‘CORDING 
TO THE INSTRUCTIONS CONTAINED THERE. 

TESTS WHICH ARE NOT EXECUTED FOR DL11C+D CAN BE PERFORMED BY 

USING THE SELECT SWITCH OPTION (SR9). TEST 56 IS A DATA TEST WHICH 


CAN BE USFD FOR CABLE TESTING DL11-D°S. WARNING--A FAILURE IN THIS TEST 
MAY OCCUR DUE TO A SPLIT BAUD RATE OF RCVTR/TXVTR. 


THIS DOCUMENT DESCRIBES THE OFF LINE TESTS. 
THE AVAILABLE TESTS ARE: 
PRGO INPUT/OUTPUT LOGIC TESTS 
PRG1 TRANSMITTER SCOPE LOOP 
PRG2 RECEIVER SCOPE LOOP 
PRG3 SINGLE CHARACTER MAINT. MODE DATA TEST 
PRG4 SPECIAL BINARY COUNT MAINTENANCE MODE DATA TEST 
2. REQUIREMENTS 
2.1 EQUIPMENT 
A. PDP 11 SYSTEM 
B. DL11-E OR DL11-C OR DL11-D 


C. SPECIAL JUMPER CONNECTOR H315 (SEE DL11 MAINTENANCE MANUAL 
FOR DETAILED DESCRIPTION) IF DL11-E. 


2.2 STORACE 


THIS PROGRAM USES ALL OF CORE (4K) EXCEPT THAT AREA RESERVED 
FOR THE BOOTSTRAP AND ABSOLUTE LOADERS. 


- LOADING PROCEDURE 


THE ABSOLUTE LOADER IS USED TO LOAD THE PROGRAM. , 
PAGE 
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4. USE PROCEDURE 


THIS PROGRAM HAS BEEN MODIFIED TO RUN WITH OR WITHOUT 
A CONSOLE PROCESSOR. 

IF A CONSOLE MACHINE IS USED; THEN THE PROGRAM 

LOOKS AT THE HARDWARE SWITCH REGISTER 

IF A CONSOLE-LESS MACHINE IS USED; THEN THE PROGRAM 
AUTOMATICALLY LOOKS AT THE CONTENTS OF LOCATION 
SOFTSR (176) AS A SWITCH REGISTER. 


IT'S THE RESPONSIBILITY OF THE OPERATOR TO SET UP 
THIS LOCATION PRIOR TO STARTING THE PROGRAM. 


BEFORE STARTING ANY OF THE SELECTABLE PROGRAMS MAKE SURE 

THAT THE TTY IS IN REMOTE MODE; AND THAT THE PROGRAM SELECTED 
IS A LEGAL PROGRAM, IE. NO.9-4, OTHERWISE AN ERROR MESSAGE 
WILL OCCUR. TERMINATE ALL INPUTS WITH A CARRIAGE RETURN. 


A MAP OF DEVICES PRESENT WILL BE TYPED AT RUN TIME. THIS MAP WILL NOT 
BE TYPED OUT AGAIN UNLESS THE PROGRAM IS 

RESTARTED AT LOCATION 200. A RESTART FROM THIS LOCATION WILL CAUSE 
THE MAP A DEVICES TO BE TYPED OUT AGAIN AND THEN A NORMAL START 

WILL OCCUR. 


PRGO INPUT/OUTPUT LOGIC TESTS 


A. LOAD ADDRESS = 000200. (RESTART LOAD ADDR. = 000204) 
TYPE PROGRAM NUMBER = 0. 
THE DIAGNOSTIC WILL IDENTIFY THE PROGAM YOU SELECTED. 
DISCONNECT THE DL11-E FROM THE MODEM AND INSERT THE JUMPER CON- 
NECTOR IN THE MODEM END OF THE CABLE,AND PRESS CONTINUE. 
NOTE, IF THE “ti. +A LEFT CONNECTED TO THE MODEM THE FOL- 
LOWING TESTS WILL 
AT22,AT23, A125, A130, AT32, A156 


THE PROGRAM WILL TYPE OUT INSTRUCTIONS TO SET IN THE DESIRED 
SR OPTIONS. PRESS CONTINUE WHEN THE OPTIONS ARE IN THE SR. 
THE AVAILABLE OPTIONS ARE: 
SR_T=6 ROUTINE TO BE RUN (IF ENABLED BY SR9) 

DISABLE STALL MODE 

LOOP SELECTED ROUTINE 

HALT AT END OF CURRENT TEST 

INHIBIT ITERATION 

SELECT LINE NUMBER AND LOCK ON IT 

INHIBIT PRINTOUT 

COPE 


S 

HALT ON ERROR. 
THE PROGRAM WILL NOW REQUEST THE LINE #(IF SR12=1) YOU WISH TO 
TEST. TYPE THE LINE # AS REQUESTED, FOLLOWED BY A CARRIAGE RETURN. 
LINE NUMBER REFERS TO THE ADDRESSES TO WHICH THE DL11-E RESPONDS. 


LINE 00 77561X LINE 10 77571X LINE 20 77601X LINE 30 77611Xx 
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77562 LINE 77572K LINE 21 77602K LINE 31 77612x 
77563X LINE 77573K LINE 22 77603X LINE 32 77613x 
77564X LINE 77574KX LINE 23 77604K LINE 33 77614Xx 
77565X LINE 77575K LINE 24 77605X LINE 34 77615x 
77656X LINE 77576X LINE 25 77606X LINE 35 77616x 
77567X LINE 77577X LINE 26 77607X LINE 36 77617Xx 
77570X LINE 77600X LINE 27 77610x 


PROGRAM WILL NOW BEGIN TESTING THE DL11-E OR C/D YOU SELECTED. 
ALL DL11°S WILL BE TESTED AUTOMATICALLY AND SEQUENTIALLY 
UNLESS SR12 IS SELECTED. 

NOTE: ALL LOGIC TESTS WILL NOT BE RUN AUTOMATICALLY. 

THERE ARE TWO TESTS WHICH REQUIRE MANUAL INTERVENTION 

WHICH ARE USED 10 TEST THE SPEED SELECTION SWITCHES. 

THESE ARE TESTS 134,140. TO EXECUTE THESE TESTS USE SR9 AND 

SR 0-6 TO SELECT THEM. 


REFER TO SECTION 5.1.2 FOR ERROR DESCRIPTION 


AFTER ONE COMPLETE PASS THE BELL WILL RING 
FOLLOWED BY “‘END PASS = *' WITH THE NUMBER OF 
PASSES COMPLETED SINCE PROGRAM LAST STARTED AND 
THE DEVICE ADDRESS UNDER TEST AND ITS TRAP VECTOR. 


PRG1 - TRANSMITTER SCOPE LOOP 


A. LOAD ADDRESS = 000200 (RESTART = 000204) 
TYPE PROGRAM NUMBER = 1. 
THE DIAGNOSTIC WILL IDENTIFY THE PROGRAM YOU SELECTED, AND 
REQUEST THE LINE # YOU WISH TO TEST. TYPE THE LINE # AS RE- 
QUESTED, FOLLOWED BY A CARRIAGE RETURN. 


THE PROGRAM WILL REQUEST A CHARACTER CODE, AND A DELAY 

TIME. THE CHARACTER CODE IS THE DATA THE DL11-E WILL TRANSMIT 
AND THE DELAY IS THE TIME ELAPSED BETWEEN SUCCESSIVE TRANS- 
MISSIONS OF ONE CHARACTER. 


C. THE PROGAM WILL RUN WITHOUT ERROR OR END TYPEOUTS. 
PRG2 - RECEIVER SCOPE LOOP 


A. LOAD ADDRESS = 000200 (RESTART = Q00204) 
TYPE PROGRAM NUMBER = 2. 
THE DIAGNOSTIC WILL IDENTIFY THE PROGRAM YOU SELECTED, AND 
REQUEST THE LINE # YOU WISH TO TEST. TYPE THE LINE # AS REQ- 
VESTED, FOLLOWED BY A CARRIAGE RETURN. 


THE PROGRAM WILL REQUEST A TEST CHARACTER CODE, AND A DELAY 
TIME. THE CHARACTER CODE IS THE DATA THAT THE DL11-E WILL BE 
TRANSMITTING AND THE DELAY IS THE ELAPSED TIME BETWEEN SUCCES- 
SIVE CHARACTERS. 


THE PROGRAM WILL NOW RUN WITHOUT ERROR OR END TYPEOUTS. 
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4.4 PRG3 = SINGLE CHARACTER MAINT MODE DATA TEST 


A. LOAD ADDRESS = 000200 (RESTART = 000204) 
TYPE PROGRAM NUMBER = 3. 
THE DIAGNOSTIC WILL IDENTIFY THE PROGRAM YOU SELECTED, AND 
REQUEST THE LINE # YOU WISH TO TEST. TYPE THE LINE # AS REQ- 
UESTED, FOLLOWED BY A CARRIAGE RETURN. 


THE PROGRAM WILL REQUEST A TEST CHARACTER. TYPE THE TEST CHAR- 
ACTER, FOLLOWED BY A CARRIAGE RETURN. 


the PROGRAM WILL NOW RUN CONTINUOSLY REPORTING ANY DATA FAIL- 
U 


PRG4 - SPECIAL BINARY COUNT MAINT. MODE DATA TEST 


A. LOAD ADDRESS = 000200 
TYPE PROGRAM NUMBER = 4, 
THE DIAGNOSTIC WILL IDENTIFY THE PROGRAM YOU SELECTED, AND 
REQUEST THE LINE # YOU WISH TO TEST. TYPE THE LINE # AS REQ- 
UESTED, FOLLOWED BY A CARRIAGE RETURN. 


THE PROGRAM WILL BEGIN TESTING THE LINE YOU SELECTED. 
AND REPORT ANY DATA ERRORS. a 


PROGRAM DESCRIPTIONS 
PRGO = INPUT/OUTPUT LOGIC TESTS 
THE INPUT/OUTPUT LOGIC TESTS CONSIST OF 57(8) ROUTINES WHICH 
MAY BE RUN IN SEQUENTIAL ORDER OR INDIVIDUALLY LOOPED (SEE 
SECT 4.1, C FOR SWITCH SETTINGS). THE JUMPER CONNECTOR MUST 
BE INSERTED BEFORE STARTING IF DL11-E. 
ROUTINE DESCRIPTIONS 
ROUTINE TESTS 
ATO-AT3 ADDRESSABILITY OF CSRS & DBRS 
AT4~-AT27 DIDDLES ALL BITS IN THE CSRS AND 
CHECKS THAT THEY CAN BE READ/WRITTEN 
PROPERLY. 
AT31-AT32 PROPER OPERATION OF RESET INSTRUCTION 
AT33 PROPER OPERATION OF READY BIT 
AT34 PROPER OPERATION OF TRANSMIT SPEED SELECTION 
AT35~-AT37 PROPER OPERATION OF DONE BIT 
AT4O PROPER OPERATION RECEIVER SPEED SELECT 


AT41 PROPER OPERATION OF DATA OVERRUN 
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AT42-AT52 PROPER OPERATION OF INTERRUPTS 
ATS3 READING RXCSR DOES NOT CLEAR DONE 
AT54 ERROR CAUSES INTERRUPT 

AT55 DATA TEST MAINTENANCE MODE 

AT56 DATA TEST WITH JUMPER 

ATS? PROPER OPERATION OF BREAK BIT 


ERROR DESCRIPTION 


IF A ROUTINE FAILS AND THE INHIBIT PRINTOUT SWITCH IS NOT 
ENABLED (SR13) A PRINTOUT RESULTS. THE PRINTOUT FORMAT IS: 


TC(ROUTINE#) PC=(PC OF ERROR CALL) RXCSR=(ADDRESS OF DEVICE UNDER TEST) 
AND AN ADDITIONAL/MESSAGE (IF APPLICABLE) 


TOOS PC=XXXX RXCSR=XXXX 


T122 PC=XXXX RXCSR=XXXX DATA S/B:---WAS:--- 
INDICATING A DATA ERROR 


TO RESUME TESTING PRESS CONTINUE. 

IF THE VECTOR PROVIDED BY THE INTERRUPTING DL11-E IS INCORRECT 
Sage a WRONG LOCATION WILL OCCUR AND AN ERROR MESSAGE 
WILL OCCUR. 


JUMPER CONNECTOR 


THE JUMPER CONNECTOR TESTS THOSE F/F'°S, GATES (RING INDICATOR, 
CARRIER TRANSITION, CLEAR TO SEND, AND SUPERVISORY RECEIVE 
DATA) WHICH CANNOT BE TESTED UNLESS A DATA SET IS ACTUALLY 
CONNECTED TO THE DL11-E. IN ADDITION TO TESTING DL11-E LOGIC 
THE JUMPER ALSO TESTS CABLE WIRING TO/FROM THE DL11-E/DATA 
SET. THE FOLLOWING TESTS WILL FAIL IF THE CABLE IS NOT 
INSALLED IN THE DL11-E: 


AT22,AT23,AT25,A1T30,AT32,A156 


PRG1-TRANSMITTER SCOPE LOOP 


THE PURPOSE OF PRG1 IS TO ALLOW SCOPING OF TRANSMITTER 
FUNCTIONS IN A RUN CONDITION USING USER SPECIFIED DL11-E 
PARMATERS AND DATA. NO ERROR PRINTOUTS ARE PROVIDED. 


PRG2-RECEIVER SCOPE LOOP 
THE PURPOSE OF PRG2 IS TO ALLOW SCOPING OF RECEIVER FUNCTIONS 


IN A RUN CONDITION USING USER SPECIFIED DL11-E PARAMETERS 
AND DATA. NO ERROR PRINTOUTS ARE PROVIDED. 


SEQ 0006 
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5.4 


5.4.1 


3.3 


5.90% 


6.0 


PRG3-SINGLE CHARACTER MAINT MODE DATA TEST 


PRG3 TRANSMITS, RECEIVES AND CHECKS RECEIVED DATA USING USER 
SPECIFIED DL11-E PARAMETERS, AND DATA. 


ERROR PRINTOUTS 
SELF EXPLANITORY ERROR PRINTOUTS ARE PROVIDED. 
PRG4~SPECIAL BINARY COUNT MAINT MODE DATA TEST 


PRG4 IS THE SAME AS PRGO ROUTINE 54 EXCEPT THAT 
THE USER SPECIFIES DL11-E RUNNING PARAMETERS. 


ERROR PRINTOUTS 
SELF EXPLANATORY PRINTOUTS ARE PROVIDED. 


POWER FAIL 


A POWER FAIL ROUTINE IS INCLUDED IN THE PROGRAM. WHEN THE POWER FAILS 
THE PROGRAM WILL AUTOMATICALLY RESTART USING THE PRESENT SR OPTIONS 
AND THE LINE PREVIOUSLY SELECTED. NOTE: THE POWER MAY FAIL WHEN THE 
PROGRAM IS EXECUTING A ‘RESET’ INSTRUCTION, IN THIS CASE OPERATOR 
INTERVENTION IS NEEDED TO PRESS CONTINUE. AN ERROR TYPEOUT RESULTS 
AND WILL TYPE THE PROGRAM #, THE ROUTINE THAT WAS RUNNING AT THE TIME 
— ore FAILED (PROGRAM 0 ONLY), AND THE PC OF THE POWER FAIL ER- 
LL. 


RECOVERED FROM POWER FAILURE. 
poh TCROUTINE #) PC = (ADDRESS OF ERROR CALL) 
-EN 


-LIST  SEQ,BIN 
-ENABLE ABS,AMA 


;DL11-E,C/D DIAGNOSTIC PROGRAM (OFF LINE TESTS) 


:PRGO- INPUT-OUTPUT LOGIC TESTS 

;PRG1- TRANSMITTER SCOPE LOOP 

;PRG2- RECEIVER SCOPE LOOP 

;PRG3- SINGLE CHARACTER MAINTENANCE MODE DATA TEST 
;PRG4~ SPECIAL BINARY COUNT MAINTENANCE MODE DATA TEST 


STANDARD SR SWITCH OPTIONS (SWITCH SET TO A 1 ) 


;SR15- HALT ON ERROR 

;SR14- SCOPE. 

:$R13- INHIBIT PRINTOUT 

;SR12- SELECT LINE NUMBER AND LOCK ON IT 


SEQ 0007 
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;SR11- INHIBIT ITERATION. 

;SR10- HALT AT END CURRENT TEST, TEST NO. IN DATA LIGHTS 
;SR9- SELECT ROUTINE. 

;SR7- DISABLE STALL MODE AND RUN FULL SPEED. 

;SR6 THROUGH SRO - NUMBER OF ROUTINE TO BE SELECTED. 


; STANDARD CONFIGURATION 
:CHARACTER LENGTH 8 
:STOP CODE 2 

000000 =0 


000000 0C3706 F : UNASSIGNED TRAP 
000002 0 
000004 MACHER: t ;SP OVERFLOW, BUS ERROR TRAP 


;RESERVED INSTRUCTION TRAP 
; TRACE TRAP 

; TRAP TO MAP VECTOR 

;POWER FAIL TRAP 

EMT TRAP 


000042 
000046 
; TRAP TO TRAP REPORTER 


EQUATE STATEMENTS 
177776 PSW=177776 
SPBOT=1176 
NOP=240 
OPEN=0 
MANUAL=BIT15 
B1T15=100000 
B1T14=40000 
B1T13=20000 
BIT12=10000 
B1T11=4000 
B1T10=2000 


000004 
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448 000002 BIT1=2 

449 000001 BITO=1 

450 005726 POPSP=5726 ;POP THE STACK. SAME AS TST (6)+ 

451 022626 POPSP2=022626 ;POP STACK TWICE. SAME AS CMP (6)+,(6)+ 

452 000340 PRTY7=340 sPRIORITY LEVEL DEFINITIONS 

453 000300 PRTY6=300 

454 000240 PRTY5=240 

455 000200 PRTY4=200 

456 000140 PRTY3=140 

457 000100 PRTY2=100 

458 000040 PRTY1=40 

459 000000 PRTYO=0 

460 104000 TYPE=EMT+0 

461 104001 TYPES=EMT+1 

462 104002 STALL=EMT+2 

463 104003 ERROR=EMT+3 

464 104004 DATCHK=EMT+4 

465 104005 CHALT=EMT+5 

466 104006 STRXV=EMT+6 

467 104007 STTXV=EMT+7 

468 104010 EHALT=EMT+10 

469 104011 SRESET=EMT#+11 

470 104012 SCOPE=EMT+12 

471 104013 SAVREG=EMT+13 

472 104014 RSTREG=EMT+14 

473 104015 ERROR1=EMT+15 

474 104016 DELAY=EMT+16 

475 104017 TIMERX=EMT+17 

476 104020 TIMETX=EMT+20 

477 177777 ATLAST=-1 

rp 100000 CD=100000 ;FLAG FOR C/D TESTS 

480 LIST ME 

481 000174 2174 

482 000174 177570 SRPTR: 177570 

483 000176 000000 SOFTSR: 000000 

484 000200 -=200 

485 000200 000137 001640 JMP @#STARTZ :GO TO START OF PROGRAM. 

486 000204 =204 

487 000204 000137 006414 JMP @#RESTART 

488 001200 -=1200 

489 3 

490 ;DEVICE ADDRESS LIST 

491 ;LSB BITO IS SET TO A 1 BY MAPPER IF DEVICE NOT FOUND 

492 ;TO TEST THAT LINE NOT FOUND CLEAR BITO IN THAT DEVICE ADDRESS 

493 ;IN THIS TABLE AFTER MAPPING DONE 

494 peeeteeeeeetreeeeeeett 

495 001200 175610 RXCRO: 175610 sLINE 0 DEVICE ADDRESS (RXCSR) 

496 001202 175620 RXCR1: 175620 ;LINE 1 DEVICE ADDRESS (RXCSR) 

497 001204 175630 RXCR2: 175630 sLINE 2 DEVICE ADDRESS (RXCSR) 

498 001206 175640 RXCR3: 175640 sLINE 3 DEVICE ADDRESS (RXCSR) 

499 001210 175650 RXCR4: 175650 sLINE 4 DEVICE ADDRESS (RXCSR) 

500 001212 175660 RXCR5: 175660 sLINE 5 DEVICE ADDRESS (RXCSR) 

501 001214 175670 RXCR6: 175670 sLINE 6 DEVICE ADDRESS (RXCSR) 

502 001216 175700 RXCR7: 175700 sLINE 7 DEVICE ADDRESS (RXCSR) 

503 001220 175710 RXCR10: 175710 ;LINE 10 DEVICE ADDRESS (RXCSR) 
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001222 175720 RXCR11: ; DEVICE ADDRESS (RXCSR) 
RXCR12: ; DEVICE ADDRESS (RXCSR) 
RXCR13: ; DEVICE ADDRESS (RXCSR) 
RXCR14: ; DEVICE ADDRESS (RXCSR) 
RXCR15: ; DEVICE ADDRESS (RXCSR) 
RXCR16: ; DEVICE ADDRESS (RXCSR) 
RXCR17: ; DEVICE ADDRESS (RXCSR) 
RXCR20: zi DEVICE ADDRESS (RXCSR) 
RXCR21: ; 21 DEVICE ADDRESS (RXCSR) 
RXCR22: ; DEVICE ADDRESS (RXCSR) 
RXCR23: ; DEVICE ADDRESS (RXCSR) 
RXCR24: ; DEVICE ADDRESS (RXCSR) 
RXCR25: ; DEVICE ADDRESS (RXCSR) 
RXCR26: ; DEVICE ADDRESS (RXCSR) 
RXCR27: ; DEVICE ADDRESS (RXCSR) 
RXCR30: ; DEVICE ADDRESS (RXCSR) 
RXCR31: ; DEVICE ADDRESS (RXCSR) 
RXCR32: ; DEVICE ADDRESS (RXCSR) 
RXCR33: ; DEVICE ADDRESS (RXCSR) 
RXCR34: ; DEVICE ADDRESS (RXCSR) 
RXCR35: : DEVICE ADDRESS (RXCSR) 
RXCR36: ; DEVICE ADDRESS (RXCSR) 
XORADD: ; SPECIAL ADDRESS FOR XOR 

001300 177777 RXEND: 177777 sLINE DEVICE ADDRESS (RXCSR) 


ZCHARACTER LENGTH, PRIORITY, C/D MASK 
SINITIALLY SET FOR DL11-E, PRIORITY=4, CHARACTER LENGTH=8 
:BIT 15 SET TO A 1 = THAT LINE HAS DLi1-C OR DL11-D 
EX: 140377 = DL11C OR DL11D, PRIORITY = 4, CHARACTER LENGTH = 
:BITS 12-14 = PRIORITY LEVEL THAT LINE 
:BITS O-7 = CHARACTER MASK EX. 377=8, 177=7, 77=6, 37=5 
PERERA EEE 
001302 040377 CMASO: LINE 0 CHARACTER MASK, PRIORITY, C/D 

046777 CMAS1: CHARACTER MASK. PRIORITY, 

040377 CMAS2: LINE 2 CHARACTER MASK. PRIORITY. 

040377 CMAS3: CHARACTER MASK. PRIORITY. 
CMAS4: CHARACTER MASK. PRIORITY, 
CMASS: CHARACTER MASK, PRIORITY. 
CMAS6: CHARACTER MASK, PRIORITY. 
CMAS7: CHARACTER MASK, PRIORITY. 
CMAS10: CHARACTER MASK, PRIORITY, 
CMAS11: CHARACTER MASK, PRIORITY, 
CMAS12: CHARACTER MASK. PRIORITY. 
CMAS13: CHARACTER MASK, PRIORITY. 
CMAS14: CHARACTER MASK. PRIORITY. 
CMAS15: CHARACTER MASK, PRIORITY, 
CMAS16: CHARACTER MASK, PRIORITY. 
CMAS17: CHARACTER MASK. PRIORITY, 
CMAS20: CHARACTER MASK, PRIORITY. 
CMAS21: CHARACTER MASK, PRIORITY. 
CMAS22: ; CHARACTER MASK, PRIORITY, 
CMAS23: CHARACTER MASK. PRIORITY. 
CMAS24: CHARACTER MASK. PRIORITY, 
CMAS25: CHARACTER MASK. PRIORITY. 
CMAS26: CHARACTER MASK. PRIORITY. 

001360 040377 CMAS27: 040377 CHARACTER MASK. PRIORITY, 
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560 001362 040377 CMAS30: 040377 sLINE 30 CHARACTER MASK, PRIORITY, C/D FLAG 
561 001364 040377 CMAS31: 040377 ;LINE 31 CHARACTER MASK, PRIORITY, C/D FLAG 
562 001366 040377 CMAS32: 040377 ;LINE 32 CHARACTER MASK, PRIORITY, C/D FLAG 
563 001370 040377 CMAS33: 040377 ;LINE 33 CHARACTER MASK, PRIORITY, C/D FLAG 
564 001372 040377 CMAS34: 040377 ;LINE 34 CHARACTER MASK, PRIORITY, C/D FLAG 
565 001374 040377 CMAS35: 040377 ;LINE 35 CHARACTER MASK, PRIORITY, “/D FLAG 
5466 001376 040377 CMAS36: 040377 sLINE 36 CHARACTER MASK, PRIORITY, C/D FLAG 
yo 001400 040377 CMAS37: 040377 ;LINE 37 SPECIAL ADDRESS FOR XOR 
569 001402 000000 UMASK: 0 sMASK FOR DEVICE UT 
570 001404 000000 RMASK: 0 sMASK FOR CHAR LENGTH FOR DEVICE UT 
4a 001406 177740 STLMSK: 177740 ;MASK FOR MAX RANDOM STALL : 
573 007410 000000 RXCSR: 0 ;RECEIVER UNDER TEST 
574 001412 000000 RXBUF: 0 ;RECEIVER BUFFER UNDER TEST 
575 001414 000000 TXCSR: 0O ; TRANSMITTER CSR UNDER TEST 
576 001416 000000 TXBUF: 0 ; TRANSMITTER BUFFER UNDER TEST 
577 001420 000000 RXVTR: 0O sRECEIVER VECTOR UNDER TEST 
578 001422 000000 RXLVL: 0 ;RECEIVER PRIORITY LEVEL UT 
579 001424 000000 TXVTR: O ; TRANSMITTER VECTOR UNDER TEST 
580 001426 000000 TXLVL: 0O ; TRANSMITTER PRIORITY LEVEL UT 
581 FERRARA EER EEE 
582 3 
583 001430 177560 TKS: 177560 :LSR CSR 
584 001432 177562 TKB: 177562 3LSR BUFFER 
585 001434 177564 TPS: 177564 ;LSP CSR 
586 001436 177566 TPB: 177566 ;LSP BUFFER 
587 001440 000060 TKVTR: 60 ;LSR INTERRUPT VECTOR 
588 001442 000200 TKLVL: PRTY4 7LSR PRIORITY LEVEL 
589 001444 000064 TPVTR: 64 ;LSP INTERRUPT VECTOR 
590 001446 000200 TPLVL: PRTY4 ;LSP PRIORITY LEVEL 
591 001450 000000 PRGNUM: OPEN ; CONTAINS CURRENT PROGRAMA 
592 001452 000000 KSTART: OPEN ; CURRENT PROGRAM START ADDRESS. 
593 001454 000000 CURTST: OPEN ;CONTAINS ADDR OF CURRENT TEST. 
594 001456 000000 RTNNO: OPEN ;CONTAINS CURRENT TEST #. 
595 001460 000000 TNNO: 0 ;CONTAINES EDITED TNUM 
596 001462 000000 NXTST: OPEN ;CONTAINS ADDR OF NEXT TEST. 
597 001464 000000 ICTR: OPEN ;CONTAINS CURRENT ITERATION COUNT 
598 001466 000000 SCOPTR: OPEN :CONTAINS CURRENT SCOPE POINTER. 
599 001470 000000 OLDPS: 0 7PS SAVED FROM TRAP TO EMT ROUTINE 
600 001472 000000 FMAP: 0 ;MAPPING FLAG, 1= MAPPING IN PROGRESS 
601 001474 006446 PRGTAB: PRGO sPRGO START ADDRESS 
602 001476 014522 PRG1 ;PRG1 START ADDRESS 
603 001500 014574 PRG2 :PRG2 START ADDRESS 
604 001502 014672 PRG3 :PRG3 START ADDRESS 
605 001504 014732 PRG4 sPRG4 START ADDRESS 
606 001506 005110 INCRPG : INCORRECT PROGRAM SELECTED 
607 001510 005110 INCRPG 
608 001512 005110 INCRPG 
609 001514 003342 EMTTAB: TYP sPOINTER TO TYPEOUT ROUTINE 
610 001516 003464 TYPS ;POINTER TO CHAINED MESSAGES ROUTINE 
611 001520 003774 STAL :POINTER TO RANDOM STALL ROUTINE 
612 001522 005516 ERR ;POINTER TO ERROR ROUTINE 
613 001524 005424 DTCHK 
614 001526 000000 ; OPEN 


615 001530 003120 STLSRV 
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001532 
001534 
001536 
001540 
001542 
001544 
001546 
001550 
001552 
001554 


001556 


001662 


001666 
001670 


001676 
001700 


001752 


003154 
005362 


004054 


000000 
000000 


012737 
005777 


000404 
012737 


022626 


104000 
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001176 


176306 


000176 


000004 


174000 
177777 


000004 


000174 


000004 


001276 
0020°6 


STARTZ: 


1$: 


2$: 


STLSPV 
EHLT 
SRSETT 
CHAINN 
SAVRG 
RSTRG 
ERR1 
DLY 
TMRX 
TMTX 


OPEN 


: OPEN 
: OPEN 


OPEN 
OPEN 
OPEN 


MOV #SPBOT,%6 
MOV 6,-(SP) 
MOV 4,-(SP) 


MOV #1$,4 
TST @SRPTR 
BR 


2$ 
MOV #SOFTSR,SRPTR 


CMP (6)+,(6)+ 

MOV (6)+,4 

MOV (6)+,6 

CLR a#FTITLE 

MOV a#4 ,~(%6) 

MOV #XORA,a#4 

TST a#177060 

MOV (26)+,a#4 

MOV #174000 ,a#XORADD 
MOV #-1 ,a#XORFLG 


;POINTER TO ERROR HALT ROUTINE. 


SAVE CURRENT VECTOR 


;SET UP TIME OUT VECTOR 

TRY TO REFERENCE THE 

HARDWARE SWITCH REGISTER 

BRANCH IF NO TIME QUT TRAP OCCURRS 
CHANGE THE SWITCH REGISTER POINTER 

:TO POINT TO A SOFTWARE SWITCH REGISTER 
RESTORE THE STACK 

RESTORE TIME OUT VECTOR 


SEQ 0012 
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672 001754 001762 MESS1 


673 001756 000137 002044 JMP a#START 

674 001762 005015 047531 020125 MESS1: .ASCII <15><12>"YOU ARE ON AN XOR TESTERA@' 
675 001770 051101 020105 047117 

676 001776 040440 020116 047530 

677 002004 020122 042524 052123 

678 002012 051105 100 


679 002016 EVEN 

a 002016 000000 XORFLG: .WORD 0 . 
682 002020 022626 XORA: CMP (265+, (%6)+ 

683 002022 012637 000004 MOV (%6)+,a#4 

684 002026 012737 177777 001276 MOV #-1,a#XORADD 

685 002034 005037 002016 CLR a#XORFLG 

45 002040 000137 002044 JMP a#START 

688 

689 .MACR TSTAA’ AX,B,C,D,E 

690 PUREE AEE AERA ETE ERATE TERE REA AKA eee eee tke kee et 
691 AT'E': C : TEST NUMBER « 
692 AT'D' sADDRESS OF NEXT TEST + 
693 8 ITERATION COUNT * 
694 "AX'A ;SCOPE ENTRY POINT * 
695 X=X+1 ; * 
696 SERRATE EEE EEE EEE EERE REE EERE RE RERE Eee Eee 
697 ~ENDM 

698 -MACR  TSTA B,AX,2Z 

699 TSTAA AX,B, X#1+Z, X#2, X+1 

Ay ~ENDM 

702 002044 012706 001176 START: MOV #SPBOT,%6 ;SET BOTTOM OF SP STACK. 

703 002050 012737 006234 000024 MOV #PFAIL,24 

704 002056 005037 001612 CLR FOUNDV 4 
705 002062 005037 001472 CLR FMAP 
706 002066 004737 003300 JSR %7,CLRCD CLEAR DEVICE UT PARAMETERS 
707 002072 004737 063516 JSR %7,0VRLAY sOVERLAY TRAP AREA 

708 002076 005737 OC 626 TST FTITLE sT'TLE PRINTED AND MAP MADE 

709 002102 001054 BNE START1 sYES, SKIP OVER THIS 

710 002104 104000 TYPE 

711 002106 015044 MTIT 

712 002110 005237 001626 INC FTITLE 

713 002114 005037 001630 CLR FNONE ;CLEAR DEVICE PRESENT FLAG 

714 002120 012737 002160 000004 MOV #MAPNE MACHER ;SET UP NO DEVICE PRESENT RETURN 

715 002126 012704 001200 MOV #RXCRO, 24 ;SET UP DEVICE POINTER 

716 002132 021437 001300 MAPA: CMP (%4) ,@#RXEND LAST DEVICE 

71/ 002136 00:'30 BEQ MAPEND ;YES, EXIT 

718 002140 042.14 000001 BIC #B1T0, (4) ;CLEAR ODD ADDRESS 

719 002144 005037 177776 CLR PSW 

720 002150 005774 000000 TST a(4) TEST DEVICE 

721 002154 000240 NOP 

722 002156 000404 &R MAPOK 

723 002160 052724 000001 MAPNE: BIS #BIT0,(4)+ sNOT LIVING 

724 002164 022626 POPSP2 

725 002166 000761 BR MAPA 


726 002170 012437 001620 MAPOK: MOV (4)+, TEMP ;SAVE DEVICE ADDRESS FOR TYPING 
727 002174 004537 04474 JSR T5,0ACNV 





—- 
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001620 


001630 FNONE SET HAVE DEVICE 


MAPA 
005706 000004 MAPEND: #ERTP MACHER RESET TRAPS 
001630 F NONE ANY DEVICES PRESENT 
MAPERR NO, ERROR 
001200 START1: #RXCRO,21 
000001 START2: #B1T0,(1) 1S DEVICE LIVING 
STARTS NO, CHECK FOR END 
001614 21,LINENO CALCULATE LINE NUMBER UNDER TEST 
001200 001614 #RXCRO,LINENO 
001614 LINENO 
(1) ,21 7YES, LOAD AND EXIT 
006072 17, FORMAD 


START3: 
001300 , #RXEND sEND OF TABLE 
START2 NO, LOOP 
MAPERR: 


000042 :MONITOR LOAD 
° 7NO, CONTINUE 
005302 cYES, EXIT 


001626 


002044 TART 
000001 001636 START4: #1,PASCNT 
177774 PSW 
001456 RTNNO 
:CALL FOR PROGRAM NUMBER. 


003554 PC,RDOCT READ IN PROGRAM NUMBER. 

(SP)+, 20 ; INPUT DATA TO RO 
177770 #177770 ,20 LIMIT (SR) TO BITS 3-0 
001450 20, PRGNUM ;SAVE PROGRAM # 


006300 20 
002376 000170 001474 @PRGTAB(O) :GO TO SELECTED PROGRAM. 


002402 013737 001452 001462 GETRDY: KSTART,NXTST sADDR OF 1ST gm TO NXTST 
005706 000004 GTRDYX: #ERTP, MACHER RESET MACHER TRAP 
000040 000006 #40 ,MACHER+2 
001472 FMAP 
00117é 0 #SPBOT , 26 ;SET BOTTOM OF STACK. 


: ISSUE RESET. 
177776 CLR PSwW 
002734 GTRDYA: 27,FORWD ROLL FORWARD TO ‘NEXT’ ROUTINE. 
001000 175520 #BIT9,@SRPTR ;CHECK SELECT ROUTINE SWITCH 

TRD :BRANCH IF SELECT ROUTINE SWITCH IS SET. 

001402 :C/D DEVICE 

NO, CONTINUE 
001456 :THIS A C/D TEST 

002470 100364 GTRDYA NO, DO NEXT TEST 
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002472 000177 176756 GTRDA1: aCURTST :GO RUN CURRENT ROUTINE. 
CHNB :NO GO. MANUAL RTN BYPASSED. 
175470 GTRDYC: @SRPTR,20 :(SR) TO RO 
177600 #177600 ,20 :MASK UNDESIRED BITS 
001456 RTNNO, 20 ; COMPARE RTNNO TO (RO) 
GTRDYD BRANCH IF ROUTINE NOT FOUND YET. 
176732 acURTST :GO RUN ROUTINE. 
177777 001462 GTRDYD: #-1 ,NXTST :NO. CHECK FOR LAST ROUTINE. 
GTRDYA BRANCH IF NOT LAST ROUTINE. 
005100 27, INCRIN :YES. INCORRECT ROUTINE SELECTED. 
002536 000721 : GETRDY START OVER. 


002540 032777 040000 175426 CHAINN: #BIT14,@SRPTR ;CHECK FOR SCOPE OPTION. 
B CHNA ;BRANCH IF SCOPE SW NOT SET. 
001466 CHNAB: SCOPTR,a@%6 ;SET UP TO RETURN TO ROUTINE. 


;RETURN TO ROUTINE. 
002016 CHNA: : _— 


000004 a#4 ,- (26) 
000004 #XOR ,a#4 
a#177060 : TEST FOR XOR 
(26)+,a84 
004000 175360 : #BIT11,@SRPTR ;TEST INHIBIT ITERATION SWITCH 
CHNAA :BRANCH IF INHIBIT ITERATION SW SET. 
001464 ICTR :DECREMENT ITERATION COUNT. 
CHNAB BRANCH IF COUNT NOT 0. 


POP STACK TWICE 
002000 175340 BIT —- 
HN 
001456 RTNNO, ZO 
100000 #B1T15,20 


001000 175316 #B1T9,@SRPTR ;CHECK SELECT ROUTINE SWITCH 
GETRDY ;BRANCH IF SELECT RTN SW SET 
177777 +=001462 #-1,NXTST ;LAST TEST? 
GTRDYX BRANCH IF NOT LAST TEST. 
005122 %7,PRGEND PROGRAM END. 
002674 000642 GETRDY 


002676 022626 XOR: (26)+, (26)+ 
002700 012637 000004 (26)+,a#4 
002704 000721 CHNAB 


INIT FOR C/D - WITHOUT JUMPER RESET STARTS ASSEMBLING CHARACTER SETTING DONE 
SET MAINT, DELAY, CLEAR RX DONE 
002706 005737 001402 CDINIT: TST UMASK :C-D DEVICE 
CDINX zNO, EXIT 
000004 176472 #BIT2,aTXCSR SET MAINT BIT 
WAIT 1.5 SEC 


176460 "  @RXBUF =CLEAR RX DONE 
002732 000207 17 


002734 013705 001462 : NXTST,25 ADDR OF NEXT ROUTINE TO RS. 
002740 012537 001456 (5)+,RTNNO GET NEXT ROUTINE NUMBER, 
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002744 012537 001462 (5)+,NXTST GET ADDR OF NEXT ‘'NEXT’’ ROUTINE. 
002750 012537 001464 (5)+,1CTR GET ITERATION COUNT. 

002754 012537 001466 (5)+,SCOPTR :GET SCOPE LOOP ENTRY POINTER. 
002760 010537 001454 25,CURTST ADDR OF NOW CURRENT TEST TO CURTST. 
002764 000207 z7 EXIT FORWD SUBROUTINE. 


002766 011646 EMTINT: a%6,-(6) :GET SAVED PC. 
162716 000002 ;DECREMENT PC BY 2. 
017616 000000 M 
006316 EMTA: a%6 sEMT ARG X 2. 
042716 177001 B #177001 ,a%6 REMOVE 7 MSB. 
062716 001514 #EMTTAB,a%6 FORM EMT RTN ADDR. 
017616 000000 a(6) ,a%6 

003016 000136 a(6)+ 3GO TO EMT ROUTINE. 


[SAVE REGS 0 TO 4 SUBROUTINE. 


003020 012637 003054 SAVRG: (6) +, SVRPC :SAVE PC AND PSW. 
003056 r (6)+, SVRPSW 
) :SAVE REGS 0 - 4 


7 IN STACK. 


003056 ;RESTORE PC AND PSwW. 
003054 SVRPC,-(6) — 
SERIT. 


SVRPC: 
003056 000000 SVRPSW: OPEN 


;RESTORE REGS 0 TO 4 SUBROUTINE. 


003060 012637 003114 RSTRG: (6)+,RSTPC ;SAVE PC AND PSW. 
003116 (6)+,RSTPSW 
, )+,%0 RESTORE REGS 0 - 4 
>FROM STACK. 


003116 sRESTORE PC AND PSW. 
003114 RSTPC,-(6) 
sEXIT 


RSTPC: EN 
003116 000000 RSTPSW: OPEN 


ROUTINE TO SET RECEIVER INTERRUPT VECTOR AND PRIORITY 
003120 004737 006270 STLSRV: JSR 27, TSTVEC 

003124 003144 MOV (6) ,STPRA+2 sMOVE VECTOR ADDR TO STPRA+2 

2 #2,a%6 SET UP EXIT 
RXVTR,2%1 
STPRA: #OPEN,(1)+ ;SET VECTOR ADDRESS 
001422 M RXLVL,(1)+ SET PRIORITY 
003152 000002 sEXIT 


:ROUTINE TO TRANSMITTER INTERRUPT VECTOR AND PRIORITY. 
003154 004737 006270 STLSPV: JSR 27, TSTVEC 
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003160 
003166 
003172 
003176 
003202 
003206 


003210 
003214 
003216 
003222 
003224 


003226 


003276 


003300 


003340 


003342 


003414 
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017637 


000002 


012700 
005100 
010037 
000005 
000002 


013700 
006100 
006100 
063700 


007622 


005037 


000207 


011600 


000756 
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000000 003200 
000002 
001424 


000000 
001426 


‘ROUTINE TO 


052525 SRSETT: MOV 
COM 


003212 


003274 


003276 
003274 


003276 


003276 
003274 


RP2: 


001416 


001426 


(6), STPPA+2 
#2,a%6 


TXVTR, 21 
#OPEN, (1)+ 
TXLVL, (1) 


ISSUE RESET. 
#5 


2525,2%0 
20 
20,SRSETT+2 


TXCSR 
RXCSR 
RXBUF 
RXVTR 
TXVTR 
RXLVL 
TXLVL 
27 


s;MOVE VECTOR ADDR TO STPPA+2 
7SET UP EXIT 


;SET VECTOR ADDRESS. 
;SET PRIORITY 
IT. 


DATA TO RO. 
;COMPLEMENT (RO). 
3(RO) TO SRSETT+2. 
ISSUE RESET. (RO) IS 


sDISPLAYED. EXiT. 
:RANDOM NUMBER “—_ ROUTINE EXITS WITH NUMBER IN REGISTER 0. 


sEXIT. NUMBER IN RO 


: CLRCD - CLEAR 5 oy DEVICE PARAMETERS 
T 


TO OUTPUT ASCII MESSAGE ON TELETYPE PRINTER 
V a%6,20 


000002 


003462 


000100 003462 


000045 
000043 
003416 


003462 
003462 


a 

(0)+, TYPDAT 
#100, TYPDAT 
TYPC 


esa erent 


H5, , TYPDAT 
27, a 
TYPA 


:GET ADDRESS THAT CONTAINS MESSAGE ADDRESS. 


SET UP EXIT. 

ADDRESS OF MESSAGE TO RO. 
;GET CHARACTER 

CHECK FOR*‘a'’CHARACTER 
;BRANCH IF NOT''a’’. 

; TERMINATOR CHAR. DONE. 
oly, Je. R''Z"’. 

:BRANC H IF a oo 

sNOT''2"'. CHECK FOR'#". 
BRANCH IF ‘‘#"' 

TYPE CHAR IN TYPDAT 


SEQ 0017 
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1 
003416 


003462 


003464 
003466 


003514 


003516 


003552 


003554 


003650 


113777 


000000 


011600 


000763 


012701 


000207 


011646 


005237 
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003462 
176004 


000015 
003416 
000012 
003416 


000002 
003512 
177777 


000300 
000302 
000004 


000004 
001000 


001624 
175634 


175630 
177600 
175622 


17561€ 
000015 


000177 
000060 
000067 
001624 


176012 


003462 
003462 


003512 


TYPD: 
TYPF: 
TYPG: 


BR 
TYPDAT: OPEN 


TYPDAT,aTPB 
a 


27 

#15, TYPDAT 
27,TYPD 
#12, TYPDAT 
%7,TYPD 
TYPA 


sOUTPUT CHARACTER TO PRINTER 
WAIT FOR DONE FLAG. 


sEXIT 

sMOVE CARRIAGE RETURN CODE TO TYPDAT 
:GO TYPE CHAR. 

;MOVE LF CODE TO TYPDAT. 

:GO TYPE CHAR. 


: SUBROUTINE TO y tng Ke SERIES OF ASCII MESSAGES ON ‘TELETYPE PRINTER 


TYPSA: 
TYPSB: 


SOVERLAY VECTOR 


OVRLAY: MOV 


OVRLYA: MOV 


B 
OVRLYB: RTS 
; SUBROUTINE 
RDOCT: MOV 
INDAT: CLR 
RDDAT: 


ECDAT: 


. 


#2,a%6 
az0, TYPSB 
#-1,TYPSB 
TYPSA 


TYPS 
AREA 


T ADDRESS THAT CONTAINS MESSAGE ADDRESS 
[UPDATE TO NEXT MESSAGE ADDRESS 


;ADDRESS OF MESSAGE TO TYPSB 
CHECK FOR TERMINATOR 

;BRANCH IF NOT TERMINATOR. 
TERMINATOR, EXIT 

;CALL ON TYP SUB TO TYPE MESSAGE 
ADDRESS OF MESSAGE GOES HERE 
:GO PROCESS NEXT MESSAGE 


;GET DL11-E VECTOR BASE ADDRESS 


;LOAD VECTOR WITH IOT ERROR TRAP 


s;ALL VECTORS BEEN LOADED 


sEXIT 
TO READ OCTAL DATA FROM THE TELETYPE PRINTER 
(SP) ,-(SP) ;MAKE ROOM FOR DATA WORD 
%0,-(SP) :SAVE RO 
%1,-(SP) SAVE R1 
1 :CLEAR DATA WORD 
COUNT ;SET NO. OF DIGITS = 0 
aTKs 3 TEST TTY READ STATUS 
RDDAT i WAIT 
aTKB,-(SP) ;PUSH DIGIT ON epee 
#177600, (SP) 
aTPs ;TEST TTY PRINT STATUS 
ECDAT sWAIT 
(SP) ,aTPB ;ECHO CHARACTER 
#15, (SP) :1S IT A TERMINATOR? 
RETRN BR IF YES 
#177, (SP) :1S IT A RUBOUT? 
RREAD :BR IF YES 
#60, (SP) 71S IT AN OCTAL DIGIT? 
RREAD :BR IF NO 
#67, (SP) :TEST AGAIN 
RREAD :BR IF NO 
COUNT : INC NO. OF DIGITS 


SEQ 0018 
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003654 022737 000007 001624 ; MORE. THAN SIX DIGITS? ::+46 
“CLEAR LOWEST THREE BITS 
“OF DATA WORD 


z 
000060 ; CONVERT TO BINARY 
;ADD DIGIT TO DATA WORD 
:GET NEXT DIGIT 
TELL USER ABOUT ILLEGAL CHARACTER 


GET RID OF ILLEGAL CHARACTER 
I START SUBROUTINE AGAIN 
000010 : 21,10(SP) :STORE DATA WORD ON STACK 
T (SP)+ INC STACK POINTER 
(SP)+,%1 sRESTORE R1 
(SP)+,%0 RESTORE RO 
003724 000207 PC RETURN 


; SUBROUTINE TO DELAY A SPECIFIED NUMBER OF MILLISECONDS 
003726 011637 003772 DLY: MOV @%6,DLCNT :GET DELAY COUNT ADDRESS. 
000002 #2,0%6 SET UP EXIT ADDRESS 
000030 — :DELAY COUNT TO STACK 
Y 


177776 S SET PRIORITY 0 
000226 : ;1 MSEC COUNT TO STACK 
a%6 ;DECREMENT 1 MSEC COUNT 
;BRANCH IF NOT O. 
;ZERO. UNCOVER MSECS. COUNT. 
:DECREMENT IT 
BN :BR IF NOT DONE DEL ‘ING 
DLYC: + ; DONE 


sEXIT. 
003772 000000 DLCNT: CONTAINS MILLISECONDS COUNT ADDRESS. 


;SUBROUTINE TO STALL A RANDOM NUMBER OF MILLISECONDS. MAXIMUM STALL 
;DETERMINED BY CONTENTS OF LOC STLMSK 
003774 004737 003226 STAL: Ss 27, RNGEN 269 GET RANDOM NUMBER. 
043700 001406 STLMSK, x0 # IN RO. APPLY STALL MASK. 
001404 “BRANCH IF RESULT IS 0. 
010037 004014 
104016 DELAY 
000000 STALA: :DELAY COUNT 
004016 000002 STALB: ;DONE. EXIT. 


; SUBROUTINE TO GENERATE RANDOM CHARACTER COUNT 
004020 004737 003226 GRCNT: JSR 27,RNGEN :GET RANDOM NUMBER 
004040 ; APPLY MASK 
: TRY AGAIN IF RESULT 0 
004042 ;COUNT TO RNCNT 
%7 sEXIT 


RCMSK: RANDOM CHARACTER MASK... 
004042 000000 RNCNT: :RANDOM CHARACTER COUNT. 


SUBROUTINE TO SKIP ON FLAG AND TIME OUT IF SKIP FAILS 
004044 013737 001410 004112 TMRX: MOV RXCSR,SIOT :SET UP RXCSR ADDRESS 
004052 000403 BR TIME1 


ed ned aa ced esd od od ed 
oooo°co°ooo 
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004054 013737 001414 004112 TMTX: TXCSR,SIOT SET UP TXCSR ADDRESS 
004110 1s TIMER 
004110 : TIMER 
B TIMEX ;BRANCH IF COUNTER OVERFLOW 
000012 aS10T 
TIME2 
000002 #2,9%6 SET UP EXIT RETURN 


TIMER: 
004112 000000 SIOT: 


; SUBROUTINE TO SELECT LINE 
004114 032777 010000 174052 LINSEL: BIT #BIT12,a@SRPTR 
004122 NE LINSLX BRANCH IF SET 
004124 001612 FOUNDV 
004130 5 
004132 003516 LINSLX: %7,0VRLAY 
004136 003300 JS! %7,CLRCD 
004142 
004144 
004146 003554 PC,RDOCT 
004152 001616 (SP)+, TEMP 
004156 042737 177740 001616 #177740, TEMP 
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1087 004164 013737 001616 001614 MOV TEMP,LINENO ; SAVE FOR TYPING 
1088 004172 006337 001616 ASL TEMP 


1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
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004176 


004320 


004322 


004356 


004360 


004452 


013701 


000205 


012737 


000000 


013737 


042737 
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001616 
001200 
000001 


006072 
177776 
000001 
000100 
000100 


001472 
175146 
175140 


001420 
900100 


000340 
004474 


175120 
177776 


177777 
004562 


004344 


OPEN 
:SPECIAL BINARY 
TBIN: OV 


004346 
004350 
004344 


004350 
177400 
004350 
004350 


004354 
004356 
004352 


004356 
177400 


004350 


004350 
004346 


i R 
004356 GTBINP: : 


004356 


TEMP ,%1 
RXCRO(1),2%1 
#B1T0,21 
LINB 


LINSLX 
%7,FORMAD 
PSW 
#B1TO,FMAP 
#BIT6,aTXCSR 
#BIT6,aTXCSR 
RXVTR 

LINA 
#BIT6,aTXCSR 


#PRTY7,PSW 
5,OACNV 


a-1, 
%5,BMOVE 


%7 


COUNT PATTERN SUBROUTINE. 
PTO,PT1 


o 


RIND 
+6 


PT1 
#177400,PT1 
PT1,PTO 

+ 


z 
PTOP,PT1P 
PT1P 

PIND 
% 


PT1P 
#177400,PT1P 


SEQ 0022 


GET RXCSR DEVICE ADDRESS 
iS DEVICE THERE 


YES 
NO, REPORT 


;SET MAPPING FLAG 


: TYPE LINE # 


;SUDROUTINE TO INITIALIZE BINARY COUNT PATTERNS 
INBIN: RIND :SET ALL VARIABLES 
;TO MINUS 1. 


EXITS WITH BIN CHAR IN RO 
:PREVIOUS BIN CHAR TO PT1 


MASK TO 8 BITS 


;SAVE BIN CHAR IN PTO 
;BIN CHAR TO RO. 


sEXIT 
: PREVIOUS BIN CHAR TO PT1P 


;MASK TO 8 BITS. 
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1145 


_ 
Pa 
oa 


1 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
12 


47 
48 
49 
50 
51 
52 
53 
ns 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
00 


004460 
004466 
004472 


004474 


004560 


004562 


004602 


004604 


004702 


013737 
013701 
000207 


104013 


000000 


104013 


000205 


104013 


005037 
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004356 
004356 


004560 


004560 
177770 
000060 


000007 
004560 


004560 
004560 


004762 
004672 


004742 
004674 


004670 
004562 


004744 


004354 


004560 


004742 


MOV 
MOV 
RTS 


SOCTAL TO ASCII 
OQACNV: 


A 
OACNVA: 
B 


RTS 
OACNVX: OPEN 


PTIP,PTOP 
PT1P,21 
x7 


CONVERT ROUTINE 
a(5)+,O0ACNVX 


(5)+,%1 
(5)+,%2 
2,%1 
OACNVX,%3 
#177770,%3 
#60,2%3 
%3,-(1) 

#7 ,OACNVX 


SAVE BIN CHAR IN PTOP. 
ae TO R1. 
sEXIT. 


GET OCTAL VALUE. 

:GET DESTINATION ADDR. 

;GET CONVERT COUNT. 

;DEVELOP ADDR TO STORE 1ST CHAR. 


; ISOLATE LEAST SIGNIFICANT DIGIT. 


sCONVERT DIGIT TO ASCII. 
;STORE ASCII CHARACTER. 


;DONE ALL DIGITS? 
;BRANCH IF NOT DONE. 


;DONE. EXIT. 


; SUBROUTINE TO MOVE A VARIABLE NUMBER OF BYTES. 
AVREG ;SAVE REGS 


BMOVE: S 
M 


% 
BMOVA 
z5 


;GET''FROM''ADDRESS 
;GET''TO''ADDRESS 

:GET COUNT 

MOVE BYTE 
;DECREMENT COUNT 
;BRANCH IF NOT DONE. 
RESTORE REGS. 

DONE EXIT 


TO DECIMAL ASCII CONVERT SUBROUTINE. 


SAVREG 


BDCNVA: 


BDCNVB: 0 
BDCNVC: 
BDCNVD: 0 


SUBTEN: 


#DECVAL,2%0 
a(5)+,2%1 
(5)+,BDCNVC 
(5)+,BDCNVD 
#ADTENP ,%2 
#5,CNVCTR 
(2)+, TENPWR 
%7,SUBTEN 
CNVCTR 
BDCNVA 
BOCNVD,%0 
%0,BDCNVB 
%5,BMOVE 


:SET UP ADDR TO STORE DECIMAL ASCII IN RO 
sBINARY VALUE TO R1. 

:GET DEST ADDR 

:GET CHAR COUNT 

s;ADDR OF TEN POWER STRING TO Re. 

SET UP FOR 5 POWER CONVERSIONS. 

;MOVE POWER OF TEN VALUE TO TENPWR. 
PERFORM CONVERSION 

DONE 5 CONVERSIONS? 

BRANCH IF NOT YET 5. 


:YES, EXIT. 
CLEAR DIGIT 


SEQ 0023 
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1201 004706 163701 004746 SUBTNA: SUB TENPWR,21 -; SUBTRACT TEN POWER FROM BINARY VALUE. 
1202 004712 103403 BCS SUBTNB ;BRANCH IF UNSUCCESSFUL SUBTRACTION. 
1203 004714 005237 004744 INC DIGIT 

1204 004720 000772 BR SUBTNA 

1205 004722 063701 004746 SUBTNB: ADD TENPWR,21 ;RESTORE SUBTRACTED VALUE. 
1206 004726 062737 000060 004744 ADD «#60, DIGIT :CONVERT (DIGIT) TO ASCII 
1207 004734 113720 004744 MOVB DIGIT, (0)+ :MOVE ASCII CHAR TO DECVAL FIELD. 
1208 004740 000207 RTS 47 ZEXIT. 

1209 004742 000000 CNVCTR: OPEN 

1210 004744 000000 DIGIT: OPEN 

1211 004746 000000 TENPWR: OPEN 

1212 004750 023420 ADTENP: 10000. 

1213 004752 001750 1000. 

1214 004754 000144 100 

1215 004756 000012 10 

1216 004760 000001 1 

1217 004762 040 040 040 DECVAL: .BYTE  040,040,040,040,040,040 

1218 004765 040 040 — 040 

1219 004770 042777 000002 174412 DATTST: BIC #BIT1,a@RXCSR ;CLEAR DATA TERM. READY 
1220 004776 052777 000004 174410 BIS #BIT2,aTXCSR :SET MAINTENANCE BIT 

1221 005004 012737 000144 001564 MOV —s-#100. .CTRO GET CHARACTER COUNT 

1222 005012 105777 174376 DATAA: TSTB  aTXCSR ZWAIT FOR 

1223 005016 100375 BPL .=4 READY FLAG 

1224 005020 004737 004426 JSR 7, GTBINP GET CHARACTER 

1225 005024 110137 001560 MOVE £1, CRBUFA MOVE CHARACTER 

1226 005030 004737 005374 : JSR 7,MASKIT sMASK OFF NON TRANSMITTED BITS 
1227 005034 110177 174356 MOVB =: £1 ,aTXBUF TRANSMIT CHARACTER 

1228 005040 105777 174344 TSTB @RXCSR ;WAIT FOR 

1229 005044 100375 BPL 4 :DONE FLAG 

1230 005046 117737 174340 001556 MOVB @RXBUF , CRBUF GET rots ans CHARACTER 

1231 005054 104004 DATCHK :CHK DA 

1232 005056 005337 001564 DEC CTRO s OECRERENT CHARACTER COUNT 
1233 005062 001353 BNE —DATAA 

1234 005064 005726 TST (6)+ POP STACK 

1235 005066 104012 SCOPE 

1237 005070 104000 SETSR: TYPE ;TYPE SELECT OPTION MESSAGE. 
1238 005072 016117 ASETSR 

1239 005074 000000 HALT COMMON HALT. 

1240 005076 000207 RTS 27 ZEXIT. 

1241 005100 104000 INCRTN: TYPE ; TYPE INCORRECT ROUTINE SELECTED. 
1242 005102 016216 AINCR 

1243 005104 000000 HALT : COMMON HALT. 

1244 005106 000207 RTS «47 TEXIT. 

1245 005110 104000 INCRPG: TYPE 

1246 005112 016337 AINCPG 

1247 005114 000000 HALT 

1248 005116 000137 002044 JMP START 

1249 005122 005037 001612 PRGEND: CLR —- FOUNDV 

1250 005126 032777 020000 173040 BIT  #BIT13,aSRPTR ; INHIBIT PRINT SET? 

1251 005134 001026 BNE PRGEXT :BR IF SET 

1252 005136 004537 004604 JSR. %5, BDCNV 

1253 005142 001636 PASCNT 

1254 005144 016407 APCNT 


1255 005146 000006 6 
1256 005150 004537 004474 JSR %5,0ACNV CONVERT LINE NUMBER 
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005154 


005354 
005360 


005362 
005366 
005370 
005372 


005374 


005422 
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001614 
016427 
000002 
004537 
001410 
016443 


090207 


005777 
100001 
000000 
000002 


000207 


013737 
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SEQ 0025 


:GET ey DEVICE ADDRESS 


; CHECK FOR HALT ON ERROR. 
—— IF NO HALT DESIRED. 


:GE 
sREMOVE C/D FLAG+PRIORITY 


08:51 
LINENO 
‘oe 
004474 JSR %5,0ACNV CONVERT RXCSR 
RXCSR 
o~— 
004474 JSR %5.,0ACNV ; CONVERT VECTOR 
RXVTR 
APVEC 
TYPE ; TYPE PROGRAM END. 
APGEND 
010000 172754 PRGEXT: BIT #BIT12,@SRPTR  ;LOCK ON LINE 
BEQ PRGXT1 ;BR IF NOT SET 
001636 INC PASCNT 
BR PRGXTL 
001614 001616 PRGXT1: MOV LINENO, TEMP GET LINENO 
001616 ASL TEMP 
000002 001616 PRGEC: ADD #2, TEMP ; UPDATE LINE NUMBER 
001616 PRGEA: MOV TEMP ,2%1 
001200 MOV RXCRO(1), 21 
177777 CMP #177777,%1 ;LAST 0 
BNE PRGEB ;NO, CONTINUE 
001636 INC PASCNT 
001614 CLR LINENO 
001616 CLR TEMP 
000042 PRGXTL: MOV a#42,%5 
BEQ CONT 
RESET 
LOGIC: JSR (5) 
NOP 
NOP 
NOP 
010000 172644 CONT: BIT #B1T12,a@SRPTR ;LOCK ON LINE 
oh _— BRANCH IF NOT SET 
000001 PRGEB: BIT #B1T0,21 :DEVICE THERE 
BNE PRGEC :NO 
001616 ASR TEMP 
001616 001614 MOV TEMP ,LINENO 
006072 JSR %7,FORMAD 
RTS %7 sEXIT. 
; CONDITIONAL ERROR HALT ROUTINE. 
172606 EHLT: TST @SRPTR 
BPL EHLTA 
HALT ALT. 
EHLTA: RT! at DATA LIGHTS. 
sMASKIT = MASK DATA yt TO LINE NUMBER 
001402 001404 MASKIT: MOV _ UMASK,RMASK ;GET MASK 
177000 001404 BIC #177000, RMASK 
001404 COM RMASK 
001404 001560 aie apc :MASK DESIRED BITS 
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“DATA CHECK ROUTINE, TEST ERROR BITS 
005424 017737 173762 001562 DTCHK: MOV @RXBUF,CRBUFB ;91D ANY ERROR BITS SET 
005432 032737 170000 001562 BIT #170000,CRBUFB 
005440 001004 BNE DTCHKX YES, TYPE ERROR 
005442 023737 001556 001560 CMP CRBUF ,CRBUFA COMPARE EXPECTED AND RECEIVED 
005450 001421 BEQ DTCHKA CHARS. BRANCH IF SAME. 
005452 004537 004474 DTCHKX: JSR 75,0ACNV :GO TO OCTAL TO ASCII CONVERT. 
005456 001556 CRBUF ; SOURCE ADOR. 
005460 016074 AWAS ;DESTINATION ADDR. 
005462 000003 3 :#OF DIGITS TO CONVERT. 
005464 004537 004474 JSR 75, QACNV ;GO TO OCTAL TO ASCII CONVERT. 
005470 001560 : CRBUFA SOURCE ADDR. 
005472 016063 AASB ;DESTINATION ADDR. 
005474 000003 ; 3 MOF DIGITS TO CONVERT. 
005476 004537 004474 - JSR %5,0ACNV 
005502 001562 CRBUFB 
005504 016107 ARXBUF 
005506 000006 
005510 104015 ERROR1 
005512 016051 ERDAT 
095514 000002 DTCHKA: RTI 
[ERROR HANDLER 
005516 012737 177777 005666 ERR: MOV #-1,ERRB ;SET UP ONE MESSAGE CALL. 
005524 912737 000240 005670 MOV #240 ,ERRB+2 
005532 005037 005704 CLR ERRE 
005536 000413 BR ERRA » 
005540 011637 005666 ERR1: MOV @26,ERRB ;DEVELOP ADDT'L MESSAGE ADDR. 
005544 017737 000116 005666 MOV @ERRB,ERRB ;STORE AT ERRB. 
005552 012737 177777 005670 MOV #-1,ERRB+2 
005560 012737 000002 005704 MOV #2,ERRE 
005566 032777 020000 172400 ERRA: BIT #BIT13,a@SRPTR ;INHIBIT ERROR PRINT? 
005574 001036 BNE ERRC ;BRANCH TO INHIBIT PRINT. 
005576 011637 005702 MOV @%6,ERRD :DEVELOP CALLING ADDR. 
005602 162737 000002 005702 SUB #2,ERRD 
005610 013737 001456 001460 MOV RTNNO, TNNO 
005616 042737 100000 001460 BIC #81115, TNNO 
005624 004537 004474 JSR 5, 0ACNV :GO TO OCTAL TO ASCII CONVERT. 
005630 005702 ERRD ; SOURCE ADDR. 
005632 015240 APC ;DESTINATION ADDR. 
005634 000006 6 ;#OF DIGITS TO CONVERT. 
005636 004537 (04474 JSR %5,0ACNV :GO TO OCTAL TO ASCII CONVERT. 
005642 001410 — RXCSR ; SOURCE ADOR. 
005644 015257 ' MRXNUM DESTINATION ADDR. 
005646 000006 6 ;#0F DIGITS TO CONVER 
005650 004537 00447¢ JSR %5,0ACNV :GO TO OCTAL TO ASCII "CONVERT. 
005654 001456 RTNNO SOURCE ADDR. 
005656 015230 ATNUMB :DESTINATION ADDR. 
005660 000003 :#OF DIGITS TO CONVERT. 
005662 104001 TYPES ; TYPE: 
005664 015226 EMO ZERROR HEADER, 
005666 000000 ERRB: OPEN ;ADDT'L ERROR MESSAGE IF ANY. 
005670 177777 -1 
005672 104010 ERRC:  EHALT :GO ERR HALT IF DESIRED. 
005674 063716 005704 ADD ERRE ,@2%6 
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005700 000002 RTI sEXIT. 
000000 ERRD: OPEN 
000000 ERRE: OPEN 


Z ERROR TRAP HANDLER - TYPE TO AND FROM WHERE ERROR TRAP OCCURRED 

013737 177776 001470 ERT MOV PSW,OLDPS SAVE OLD STATUS 

000340 177776 #PRTY7,PSW 

001470 OLDPS 

001470 OLDPS 

001470 OLDPS 

177740 001470 #177740, 0LDPS 

001470 001632 OLDPS, TOPC 

001634 926, FROMPC GET FROM PC 

004474 2 25,0ACNV 


004474 25,0ACNV 


HALT 
000137 002044 START 


:MAPVEC ~- MAP VECTOR OR REPORT ERROR DEPENDING ON FMAP FLAG 
011637 001632 MAPVEC: MOV a%6, TOPC 


001634 26, FROMPC 
000004 001632 #4, TOPC 
001472 FMAP 
ERTPA ;NOT MAPPING, REPORT ERROR 
001632 001424 TOPC,TXVTR STORE VECTOR 
000004 001632 #4, TOPC 
001632 001420 TOPC,RXVTR 
001472 FMAP 
000002 


“ FORMAD- FORM DEVICE AT ADDRESSES 
010137 001410 FORMAD: MOV Z1,R°CSR 
ADD 


#2,%1 
41. RXBUF 
#2,21 
21, TXCSR 
#2,21 


21, TXBUF 
001616 i GET PRIORITY 


001616 #CMASO, TEMP 

001620 aTEMP, TEMP 

001402 TEMP1 ,UMASK 
TEMP 


TEMP 
001620 #177437, TEMP 
006200 013737 001620 001422 TEMP ,RXLVL 
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006206 013737 001620 001426 MOV TEMP1,TXLVL 
006214 000207 RTS 27 


:DOTHIS = SELECTABLE TEST DECISION MAKER 


006216 032777 001000 171750 DOTHIS: #B1T9,aSRPTR 1S SELECT TEST SWITCH SET 
006224 001002 B GOBACK s;RETURN TO TEST IF SW SET 
006226 000137 002410 J GTRDYX :GO TO NEXT TEST 

006232 000207 GOBACK: z7 


006234 012737 006244 000024 PFAIL: #PWRUP, 24 
006234 000024 PwWRUP: " #PFAIL, 24 
001176 #SPBOT, %6 


OR 
006266 000452 RESTART 


sDECIDE IF VECTOR TO BE MAPPED AND MAP 
006270 022737 000000 001612 TSTVEC: CMP #0, FOUNDV :NEED VECTOR MAPPING 
B TSTVEX :NO, EXIT 
003516 27, 0VRLAY 
001420 RXVTR 
177776 PSW 
000001 001472 #B1TO,FMAP ;SET MAPPING FLAG 
000100 173064 #BIT6,aTXCSR CAUSE INTERRUPT 
000100 173056 #BIT6,aTXCSR 


001420 RXVTR ;DID TRAP OCCUR? 
: K 


TSTVA 

020000 171616 #B1T13,aSRPTR 
TSTVEC 

:NO, ERROR 


006270 J TSTVEC 

000100 173014 TSTVA: #BIT6,aTXCSR 

000340 177776 #PRTY7,PSW RAISE PRIORITY, RETURN 

001612 INC FOUNDV 
006412 000207 TSTVEX: RTS 27 


RESTART ROUTINE 
006414 073700 001450 RESTART : MOV PRGNUM, 20 
006420 006300 ASL 20 
006422 000170 006426 JMP @RSTART(O) GO RESTART SELECTED PROGRAM 


006426 006500 RSTART: PRGOA :PROGRAM 0 RESTART ADDRESS 
014546 PRGIA ;PROGRAM 1 RESTART ADDRESS 
014620 PRG2A ;PROGRAM 2 RESTART ADDRESS 
014716 PRG3A ;PROGRAM 3 RESTART ADDRESS 
014746 PRG4A ;PROGRAM 4 RESTART ADDRESS 
005110 INCRPG 

006442 005110 INCRPG 
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1481 006444 005110 INCRPG 
1482 
1483 3 
Le +4 sPRGO - INPUT-OUTPUT LOGIC TESTS 
1486 006446 012737 006504 001452 PRGO: MOV #ATO,KSTART 
1487 006454 005737 000042 TST a#42 ;MONITOR LOAD 
1488 006460 001005 BNE PRGOB sYES, START TEST 
1489 006462 104000 TYPE s; TYPE TITLE AND INSTRUCTIONS 
1490 006464 015270 POTIT 
1491 006466 000000 HALT 
1492 006470 004737 005070 JSR 7,SETSR 
1493 006474 004537 004114 PRGOB: JSR 5.LINSEL 360 GET LINE # FROM USER 
1494 006500 000137 002402 PRGOA: JMP GETRDY ;GET STARTED. 
1495 177777 X=-1 
1496 006504 TSTA 1000. ,AA,CD 
1497 006504 TSTAA AA,1000., X+#1#CD, X#2, X+1 
1498 PRATER EEE EEE EEE EERE EAA EAR EEA AREA EEE TERE EE 
1499 006504 100000 ATO: 100000 ;TEST NUMBER * 
1500 006506 006536 AT1 sADDRESS OF NEXT TEST * 
1501 006510 001750 1000. ; ITERATION COUNT . 
1502 006512 006514 AAA : SCOPE ENTRY POINT * 
1503 000000 X=X+1 « 
1504 PETTITT TITTTITITTTITI LITE LITT TLL TTT ete 
1505 ; TEST ABILITY TO REFERENCE RECEIVER CSR WITHOUT TRAPPING 
1506 006514 012737 006530 000004 AAA: MOV #AAE ,MACHER ;SET UP MACHINE ERROR TRAP. 
1507 006522 005077 172662 CLR @RXCSR > REFERENCE RXCSR 
1508 006526 104012 AAB: SCOPE 30K IF NO TRAP. SCOPE 
1509 006530 022626 AAE : POPSP2 
1510 006532 104003 ERROR ; TRAPPED WHEN REFERENCING RXCSR. 
1511 006534 000774 BR AAB 
1512 006536 TSTA 1000. ,AB,CD 
1513 006536 TSTAA AB,1000., X#1#CD, X+#2, X+1 
1514 Pee eeH RRR EREeeee eee eee eee eee eee eee eeeeeeee eee ee eeeeeeeeeeeeeeeeteeeeeeteeeees 
1515 006536 100001 AT1: 100001 ;TEST NUMBER * 
1516 006540 006576 AT2 ADDRESS OF NEXT TEST * 
1517 006542 001750 1000. s ITERATION COUNT * 
1518 006544 006546 ABA : SCOPE ENTRY POINT * 
1519 000001 X=X+1 * 
1520 5 e Peeteeererererereeerererereeeeereeeetereceeneneneceaeerereeeeneneceaeeeeateeeers 
1521 Ad ABILITY TO REFERENCE RECEIVER BUFFER WITHOUT TRAPPING 
1522 006546 012737 006570 000004 ABA MOV #ABE ,MACHER ;SET UP MACHINE ERROR TRAP. 
1523 006554 005737 002016 TST a#XORFLG 
1524 006560 100402 BMI ABB 
1525 006562 005777 172624 TST @RXBUF sREFERENCE RXBUF 
1526 006566 104012 ABB: SCOPE ;O0K IF NO TRAP SCOPE 
1527 006570 022626 ABE: POPSP2 
1528 006572 104003 ERROR ; TRAPPED WHEN REFERENCING RXBUF 
1529 006574 000774 BR ABB 
1530 006576 TSTA 1000. ,AC,CD 
1531 006576 TSTAA AC,1000., X+#1#CD, X#2, X+1 
1532 Peete eee ee eeeeee eee eee eee ee ee eee eee eeeeee eee eee eee eeeeeeeeee eee eeeeees 
1533 006576 100002 AT2: 100002 TEST NUMBER ® 
1534 006600 006630 AT3 ADDRESS OF NEXT TEST * 
1535 006602 001750 1000. ; ITERATION COUNT * 
1536 006604 006606 ACA sSCOPE ENTRY POINT * 
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000002 X=X+1 * 
sdeeedenncscateeeeesneneeeesqnensenonesesernneseneeensanenteeennqnensenesoneeess 
he ag ABILITY TO REFERENCE TRANSMITTER CSR WITHOUT TRAPPING. 
012737 oossie 000004 ACA MOV #ACE,MACHER ;SET UP MACHINE ERROR TRAP. 
005777 172574 TST aTXCSR ;REFERENCE TXCSR 
ACB: SCOPE : SCOPE 
ACE: POPSP2 
ERROR ; TRAPPED WHEN REFERENCING TXCSR 
000774 BR ACB 
TSTA 1000.,AD,CD 
006630 TSTAA AD,1000., X#14#CD, X#2, X+1 
SERRE EEE EERE EEE EEE EAE 
006630 100003 : ; TEST NUMBER ! * 
006632 006662 sADDRESS OF NEXT TEST * 
006634 001750 . ; ITERATION COUNT * 
006636 006640 : SCOPE ENTRY POINT > 
000003 . 
seenerenerececeqtererereececececeereceeeeeenceeneseeeeececeenenesenaeaseceeeeeete 
; TEST ABILITY TO REFERENCE TRANSMITTER BUFFER WITHOUT TRAPPING 
006640 012737 006654 000004 ADA: MOV #ADE,MACHER ;SET UP MACHINE ERROR TRAP. 
006646 172544 TST aTXBUF sREFERENCE TX BUF. 
006652 ADB: SCOPE : SCOPE 
006654 é ADE: POPSP2 
006656 ERROR ; TRAPPED WHEN REFERENCING TXBUF 
006660 000774 BR ADB 
006662 TSTA 10.,AE,CD 
006662 TSTAA AE,10., X#1#CD, X#2, X+1 
Pfft eee ee PRP R PARR ERASER AASASSASSSALALELALE SSSA SEALE ESAS ESE SASS S ESSE SESE SSS SD SY 
006662 100004 ATG: 100004 ; TEST NUMBER * 
006664 006762 5 ADDRESS OF NEXT TEST * 
006666 000012 ‘ ; ITERATION COUNT * 
006670 006672 : SCOPE ENTRY POINT * 
000004 . 
s Sebeteedonennens cecRecsereerceTsoerreEresesenseeeneerasceotseneieessenseonesesons 
;TEST THAT TXCSR BIT O (BREAK) CAN BE SET AND CLEARED 
cys THAT RESET CLEARS IT 
006672 032777 000001 172514 AEA BIT #BITO,aTXCSR ;SEE IF BIT IS CLEAR 
AEB 7BR IF CLEAR 
¥ sRESET DID NOT CLEAR IT 
A 


000001 172500 : #BITO,aTXCSR SET TXCSR BIT 0 

000001 172472 #BITO,aTXCSR :DID IT = 
AEC :YES, GO 0 
“ :TXCSR BITO FAILED TO SET 
4 


000001 172456 : #BITO,aTXCSR ;CLEAR TXCSR BIT 0 
000001 172450 #BITO,aTXCSR :DID IT CLEAR 


AED 
:TXCSR BIT 0 DID NOT CLEAR 
000001 172436 ; #BITO,aTXCSR 
; ; ISSUE RESET TO CLEAR 


104012 
zs 10.,AG,CD > 
006762 AG,10., X+#1+#CD, X#2, X+1 
‘hf t eee eR RRR RR RR SAR RARER AS EASES ASALESESESE SESE SESE SESE SESE ESSE EES S ESE ESOS RES CY 


006762 100005 ATS: 100005 ; TEST NUMBER * 
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1593 006764 007062 AT6 ;ADDRESS OF NEXT TEST * 
1594 006766 000012 10. ; ITERATION COUNT * 
1595 006770 006772 AGA : SCOPE ENTRY POINT * 
1596 000005 X=X+1 + 
1597 PITITITITELITI TILL L ITLL ITLL LITTLE LTT iL iit 
1598 TEST THAT TXCSR BiT2 CAN BE SET, CLEARED, AND THAT RESET CLEARS IT. 
1599 006772 032777 000004 172414 AGA: BIT #BIT2,aTXCSR :SEE IF TXCSR BIT2 IS CLEAR. 
1600 007000 001402 , BEQ AGB ;BRANCH IF BIT IS CLEAR. 
1601 007002 1940C3 ERROR ;RESET DID NOT CLEAR TXCSR BIT2 
1602 007004 000421 ~ BR AGD 
1603 007006 052777 000004 172400 AGB: BIS #BIT2,aTXCSR ;SET TXCSR BIT2. 
1604 007014 032777 000004 172372 BIT #BIT2,aTXCSR ;SEE IF BIT IS SET. 
1605 007022 001002 BNE AGC BRANCH IF BIT IS SET 
1606 007024 104003 ERROR sTXCSR BIT2 FAILED TO. SET. 
1607 007026 000410 BR AGD 
1608 007030 042777 000004 172356 AGC: BIC #BIT2,aTXCSR ;CLEAR TXCSR BIT2 
1609 007036 032777 000004 172350 BIT #BIT2,aTXCSR ;SEE IF BIT IS CLEAR. 
1610 007044 001401 BEQ AGD 
1611 007046 104003 ERROR :TXCSR BIT2 FAILED TO CLEAR. 
1612 007050 052777 000004 172336 AGD: BIS #BIT2,aTXCSR ;SET TXCSR BIT2. 
1613 007056 104011 SRESET ; ISSUE RESET TO CLEAR BIT. 
1614 007060 104012 SCOPE > SCOPE 
1615 007062 TSTA 10.,AJ,CD 
1616 007062 TSTAA = AJ,10., X#14#CD, X#2, X+#1 
1617 REE EERE TERRE RRR REE EEE ERE EEE EE EEE 
1618 007062 100006 AT6: 100006 TEST ‘BER * 
1619 007064 007170 AT7 ;ADDRE - OF NEXT TEST * 
1620 007066 000012 10. ; ITERAI'’N COUNT * 
1621 007070 007072 AJA : SCOPE ENTRY POINT * 
1622 000006 X=X+1 * 
1623 ETIITITELTTTTITITILITITITITELITTTE TILT TTT it it itTietiee 
1624 TEST THAT TXCSR BIT6 CAN BE SET, CLEARED, AND THAT RESET CLEARS IT. 
1625 007072 012737 000340 177776 AJA MOV #PRTY7,PSwW 7 SET PRIORITY 7. 
1626 007100 032777 000100 172306 BIT #BITé, aTXCSR :SEE IF TXCSR BIT6 IS CLEAR. 
1627 007106 001402 BEQ AJB BRANCH IF BIT iS CLEAR. 
1628 007110 104003 ERROR ;RESET DID NOT CLEAR TXCSR BIT6 
1629 007112 000421 BR AJD 
1630 007114 052777 000100 172272 AJB: BIS #BIT6,aTXCSR 7SET TXCSR BIT6. 
1631 007122 032777 000100 172264 BIT #BIT6,aTXCSR :SEE IF BIT IS SET. 
1632 007130 001002 BNE AJC ;BRANCH IF BIT IS SET. 
1633 007132 104003 ERROR ;TXCSR BIT6 FAILED TO SET. 
1634 007134 000410 BR AJD 
1635 007136 042777 000100 172250 AJC: BIC #BIT6,aTXCSR ;CLEAR TXCSR BIT6 
1636 007144 032777 000100 172242 BIT #BIT6,aTXCSR ;SEE IF BIT IS CLEAR. 
1637 007152 001401 BEQ AJD 
1638 007154 104003 ERROR :TXCSR BIT6 FAILED TO CLEAR. 
1639 007156 052777 00010C 172230 AuD: BIS #3iT6,aTXCSR :SET TXCSR BIT6. 
1640 007164 104011 SRESET ; ISSUE RESET TO CLEAR BIT. 
1641 007166 104012 SCOPE SCOPE 
1642 007170 TSTA 100., 
1643 007170 TSTAA AK, ido" ; ee etete, X+2, X+1 
1644 PETTITTE TELE LT TETTTT TET TETTT TTT TTT TT TITTLE TTT TTT TTT TTT TTT TTT 
1645 007170 100007 AT7: 100007 : TEST NUMBER * 
1646 007172 007214 AT10 ;ADDRESS OF NEXT TEST % 
1647 007174 000144 100. 7. : ITERATION COUNT * 
1648 007176 007200 AKA :SCOPE ENTRY POINT * 
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000007 X=X+1 . 
ITIITITTLIT ITT TITT LILI TTL ITLL LTT TTT itiiiiiiitt tte 
:TEST THAT TXCSR BIT 7 (READY BIT) IS SET UPON ENTERING ROUTINE AND 
; THAT IT CAN BE READ RELIABLY. 


007200 105777 172210 AKA: TSTB a@aTXCSR 7SEE IF TXCSR BIT 7 IS SET. 

007204 100402 BMI AKB ;BRANCH IF SET. 

007206 104003 ERROR sTXCSR BIT 7 NOT SET. 

007210 104011 SRESET ; ISSUE RESET TO CLEAR BIT IF ERROR 

007212 104012 AKB: SCOPE 3 SCOPE 

007214 TSTA 100.,AL,0 

007214 TSTAA = AL,100., X#14#0, X#2, X#1 
tft tet Pee PRR PRR R RRR RR RARRRARRSARALSLEAASAE SALE SESE SASSER ASSESS SSS ESE S SERRE SS SS 

007214 000010 AT10: 10 7 TEST NUMBER 7 tk 

007216 007276 AT11 ;ADDRESS OF NEXT TEST * 

007220 000144 100. ; ITERATION COUNT * 

007222 007224 ALA ; SCOPE ENTRY POINT * 

© 010 X=X+1 * 

PETTITT TITIST IIIT ITIL LITT TT TTT ITLL iLL TitititiiiiiiiiiiiiiiTTt tte 
TEST THAT RXCSR BIT 1 CAN BE SET + CLEARED 

007224 042777 000002 172156 AL®. BIC #BIT1,aRXCSR 

007232 052777 000002 172150 BIS #BIT1,.aRXCSR ;SET RXCSR BIT1 

007240 032777 000002 172142 BIT #BIT1,aRXCSR ;SEE IF BIT IS SET 

007246 001002 BNE ALY ;BRANCH IF SET 

007250 104003 ERROR sRXCSR BIT 1 FAILED TO SET 

0C7252 000410 BR ALZ 

007254 042777 000002 172126 ALY: BIC #BIT1,aRXCSR ;CLEAR RXCSR BIT 1 

007262 032777 000002 172120 BIT #BIT1,aRXCSR ;SEE IF Blt IS CLEAR 

007270 001401 BEQ ALZ 

007272 104003 ERROR sRXCSR BIT 1 FAILED TO CLEAR 

007274 104012 ALZ: SCOPE 3 SCOPE 

007276 TSTA 10.,AP,0 

007276 TSTAA AP,10., X#1#0, X#2, X+1 
ttt SS ee eee PR RRR PRP R RARER RARSSAARSSSEASECSELASES ESSERE ASSL ESSER SASS SRR SESS SE 

007276 000011 AT11: 11 7 TEST NUMBER * 

007300 007376 AT12 ;ADDRESS OF NEXT TEST * 

007302 000012 10. ; ITERATION COUNT * 

007304 007306 APA : SCOPE ENTRY POINT * 

000011 XsX+1 * 

 Seeeeeeeteeeeeerereeeereeeeeeeereereecereeeeeeeerereeeeesereeereeeeseseeseseeees 


; TEST THAT RXCSR BIT2 IS CLEAR AND CAN BE READ RELIABLY. 
007306 032777 000004 172074 APA: BIT #BIT2,aRXCSR SEE IF RXCSR BIT2 IS CLEAR. 


007314 001402 BEQ APB BRANCH IF BIT IS CLEAR. 
007316 104003 ERROR :RXCSR BIT2 IS NOT CLEAR. 
007320 000421 BR APD 

007322 052777 000004 172060 APB: BIS #BIT2,@RXCSR SET RXCSR BIT2 

007330 032777 000004 172052 BIT #BIT2,aRXCSR SEE IF BIT IS SET 

007336 001002 BNE APCX BRANCH IF SET 

007340 104003 ERROR sRXCSR BIT2 FAILED TO SET 
007342 000410 BR APD 

007344 042777 000004 172036 APCX: BIC #BIT2,@RXCSR CLEAR RXCSR BIT2 

007352 032777 000004 172030 BIT #BIT2,aRXCSR ;SEE IF BIT IS CLEAR 
007360 001401 Bia APD 

007362 104003 ERROR RXCSR BIT2 FAILED TO CLEAR 
007364 052777 000004 172016 APD: BIS #BIT2,aRXCSR SET BIT 

007372 104011 SRESET : ISSUE RESET TO CLEAR BIT 


007374 104012 SCOPE 
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007376 
007376 


a 78 :52 PAGE 33 SEQ 0033 


TSTA 
TSTAA 


10.,AQ,0 


AQ,10., X+#1+#0, X#2, X+1 


et ed 
NNN SNS NNN NN NN NGS GSS 
NMONMININ SS 
WN" O CON AUSWN—O 


Nm 
= 


007376 000012 
007476 
000012 
007406 


000012 


007404 


007406 032777 


104012 
007476 
007476 000013 
007604 
000012 
007506 
000013 


007504 


007506 012737 


104012 
007604 


000010 


000010 
000010 


000010 
000010 


000010 


000340 
000040 


000040 
000040 


000040 
000040 


000040 


RRR ERE A RAAT EATER AREA EERE RARER EE EEE E EEE Eee eee 
; TEST NUMBER . 
;ADDRESS OF NEXT TEST * 
; ITERATION COUNT * 
: SCOPE ENTRY POINT * 

* 

. 


ATl2: 12 
AT13 
10. 
AQA 
X=X+1 


PITTI TITELELILITELI TILL TILT LI TLL LLL TTLi Titi tiiiiiitt ti 


171774 AQA: #BIT3,aRXCSR 


AQB 


AQD 
#B1T3,@RXCSR 
#BIT3,aRXCSR 
AQc 


AQD 
#BIT3,aRXCSR 
#BIT3,aRXCSR 
AQD 


171716 #BIT3,aRXCSR 


10.,AR, 
AR,10., 


;TEST THAT RXCSR BIT3 CAN BE SET, CLEARED, AND THAT RESET CLEARS IT. 
IT SEE IF RXCSR BIT3 IS CLEAR. 

BRANCH IF BIT IS CLEAR. 

sRESET DID NOT CLEAR RXCSR BITS 


;SET RXCSR BITS. 

;SEE IF BIT IS SET. 
;BRANCH IF BIT IS SET. 
RXCSR BITS FAILED TO SET. 


CLEAR RXCSR BITS 
SEE IF BIT IS CLEAR. 


sRXCSR BITS FAILED TO CLEAR. 
;SET RXCSR BITS. 
; ISSUE RESET TO CLEAR BIT. 


0 : SCOPE 
+140, X#2, K#1 


ff StS ee PPR RRR R PROPER REAR RRRSRARASSSAASAS EASELS SESS E LESSEE REESE SERS SEES SS SS SY 


AT13: 13 
AT14 
10 


ARA 
K=X+1 


7; TEST NUMBER * 
sADDRESS OF NEXT TEST * 
; ITERATION COUNT * 
: SCOPE ENTRY POINT * 
* 
x 


PITTI TIT ITIL ITT LITET ET TTTTTTL ITIL T Titi teekt 


177776 
171666 


#PRTY7,PSW 
#B1T5,ARXCSR 
ARB 


ARD 
#BITS,@RXCSR 
#BITS,@RXCSR 
ARC 


ARD 
#BITS,ARXCSR 
#BITS,ARXCSR 
ARD 


171610 #BITS,ARXCSR 


10.,AS,CD 
AS,10., 


Ly THAT RXCSR BITS CAN BE SET, 


X+1+CD, 


CLEARED, AND THAT RESET CLEARS IT. 
;PRTY7 TO INHIBIT ANY INT 
SEE IF RXCSR BITS IS CLEAR. 


:BRANCH IF BIT IS CLEAR. 
RESET DID NOT CLEAR RXCSR BITS 


;SET RXCSR BITS. 


SEE IF BIT IS SET. 
;BRANCH IF BIT IS SET 
:RXCSR BITS FAILED TO SET. 


CLEAR RXCSR BITS 
;SEE IF BIT IS CLEAR. 


sRXCSR BIT4 FAILED TO CLEAR. 
SET RXCSR BITS. 
thee. RESET TO CLEAR BIT. 


X+2, X+1 


Pfft ee PPP PRR RRR ERR R RRR SRSRRESAR SRSA ES ESSE EEE REESE ESSER ESE RSS R RRS ESRC SSS C SEO OC SS Sy 
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007604 100014 AT14: 100014 ; TEST NUMBER * 
007606 007712 AT15 ;ADDRESS OF NEXT TEST * 
007610 000012 10. ; ITERATION COUNT * 
007612 007614 ASA : SCOPE ENTRY POINT . 
000014 X=X+1 * 
PITITTIIILELITILI LILI T LITT TILL T TTI L TLL iiiL iT iiiiiiiiieei 
So gy THAT RXCSR BIT6 CAN BE SET, CLEARED, AND THAT RESET CLEARS IT. 
007614 012737 000340 177776 ASA OV #PRTY7,PSW 7 SET PRIORITY 7. 
000100 171560 #B1T6,ARXCSR 7SEE IF RXCSR BIT6 IS CLEAR. 
ASB :BRANCH IF BIT IS CLEAR. 
. ;RESET DID NOT CLEAR RXCSR BIT6 
AS 


000100 : #BI1T6,aRXCSR SET RXCSR BIT6. 
000100 #B1T6,aRXCSR ;SEE IF BIT IS SET. 
ASC BRANCH IF BIT IS SET. 
> sRXCSR BIT6 FAILED TO SET. 
AS 


000100 : #BIT6,aRXCSR CLEAR RXCSR BIT6 
000100 #BIT6,aRXCSR ;SEE IF BIT IS CLEAR. 


ASD 
sRXCSR BIT6 FAILED TO CLEAR. 
000100 : #BIT6,aRXCSR ;SET RXCSR BIT6. 
; ISSUE RESET TO CLEAR BIT. 
104012 > SCOPE 
100.,AT.0 
007712 AT,100., X#1#0, X#2, X+1 
fff Stee ee PRR R RARER ERE RRARR SERRA SASE ASSL ALES ELSES REESE ESSERE ESSER SRR REESE SRS SSS 
007712 000015 AT15: 15 ; TEST NUMBER . 
007714 007740 AT16 ;ADDRESS OF NEXT TEST * 
007716 000144 100. ; ITERATION COUNT * 
007720 007722 ATA : SCOPE ENTRY POINT * 
000015 X=X+1 * 
bs oPeeterererrreeeerererenerereeeeeeeerereeeeeeereneeeeeeneneeceseneeeneeeeeesetes 
prast THAT RXCSR BIT7 IS CLEAR AND CAN BE READ RELIABLY. 
007722 032777 000200 171460 ATA BIT #BIT7,aRXCSR ;SEE IF RXCSR BIT7 IS CLEAR. 
007730 001402 ;BRANCH IF BIT IS CLEAR. 
007732 104003 *RXCSR BIT7 IS NOT CLEAR. 
007734 104011 ;RESET IF ERROR 
007736 104012 ATB: E 3 SCOPE 
007740 x,0 
007740 AX, 160” » X#140, X42, X+1 : 
1-1 aa aint ata bp tpl nia ata ai nna 
007740 000016 ; TEST NUMBER * 
007742 007766 “ADDRESS OF NEXT TEST 4 
007744 000144 " ; ITERATION COUNT 1 
007746 007750 : SCOPE ENTRY POINT * 
000016 * 
peeudenesceneseeserenresenesnsnosenseeeeeoneneneseeoeneeneneneeessosesesesesesens 
; TEST THAT RXCSR BIT10 IS CLEAR AND CAN BE READ RELIABLY. 
007750 032777 002000 171432 AXA: BIT #BIT1O,@RXCSR ;SEE IF RXCSR BIT10 IS CLF 
2 3) ;BRANCH IF BIT IS CLEAR. 
sRXCSR BIT10 IS NOT CLEAR. 
;RESET BIT IF ERROR 
104012 : 7 SCOPE 


007766 : TSTAA AY, 100. e 1800, X+2, X+1 
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007766 
007770 
007772 
007774 


100017, 


000017 


007776 
010004 
010006 
010010 
010012 
010014 
010014 


010014 
010016 
010020 
010022 


032777 004000 171404 


104012 


100020 
010042 
000144 
010024 
000020 


010024 
010032 
010034 
010036 
010040 
010042 
010042 


010042 
010044 
010046 
010050 


032777 
001402 
104003 
104011 
104012 


040000 171356 


100021 
010070 
000144 
010052 
000021 


010052 
010060 
010062 
010064 
010066 


032777 
001402 
104003 
104011 
104012 


100000 171330 


010070 
010070 


010070 000022 


010076 010100 
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SRR ERE REA EEE EERE EERE REE EEE EERE EERE EEK 


ATI7: 100017 ; TEST NUMBER * 
AT20 S ADDRESS OF NEXT TEST * 

100. ; LTERATION COUNT * 

AYA ; SCOPE ENTRY POINT * 

X=X+1 * 

* 


PITITIITILELITITI TIT LILITT LITT TTLITLTTiiTiTiTiii titi iiiiiiiiiitiiitiiiii 


bs gg THAT RXCSR BIT11 IS CLEAR AND CAN BE READ RELIABLY. 


AYA BIT #BIT11,aRXCSR ;SEE IF RXCSR BIT11 IS CLEAR. 
BEQ AYB ;BRANCH IF BIT IS CLEAR. 
ERROR SRXCSR BIT11 IS NOT CLEAR. 
SRESET ;RESET BIT IF ERROR 

AYB: SCOPE ; SCOPE 
TSTA 100.,AZ,CD 
TSTAA AZ,100., X#1#CD, X#2, X+1 


I TITTTITE ELITE TELE ETT T TTT T TTT TTT TET ETE 


AT20: 100020 ; TEST NUMBER : 
AT21 ZADDRESS OF NEXT TEST » 
100. : ITERATION COUNT * 
AZA :SCOPE ENTRY POINT : 
X=X+1 . 
PUTITITITTTITI TIT ITITI TIT TILL TT LTT TiTiiiiLiriiiiitiitiT ttre 


TEST THAT RXCSR BIT14 IS CLEAR AND CAN BE READ RELIABLY. 


AZA: BIT WBIT14,@RXCSR =; SEE IF RXCSR BIT14 IS CLEAR. 
BEQ AZB ;BRANCH IF BIT IS CLEAR. 
ERROR sRXCSR BIT14 IS NOT CLEAR. 
SRESET RESET BIT IF ERROR 

AZB: SCOPE ; SCOPE 
TSTA 100. ,AAA,CD 
TSTAA AAA,100., X#1#CD, X#2, X+1 


SERRE EEE EERE EEE EEE EEE EERE REE EERE ERE EEE EE 


AT21: 100021 3; TEST NUMBER * 
AT22 ;ADDRESS OF NEXT TEST * 
100. ; ITERATION COUNT * 
AAAA ; SCOPE ENTRY POINT ® 
X=X+1 * 
PT TITIIITETTLITILILILITTT LILI T LiL iLTiTi Ti iii Tiitiirii Tite 


TEST THAT RXCSR BIT15 IS CLEAR AND CAN BE READ RELIABLY. 


AAAA: BIT WBIT1S,aRXCSR ;SEE IF RXCSR BIT15 IS CLEAR. 
BEQ AAAB ;BRANCH IF BIT IS CLEAR. 
ERROR sRXCSR BIT15 IS NOT CLEAR. 
SRESET RESET BIT IF ERROR 

AAAB: SCOPE ; SCOPE 


sALL PREVIOUS TESTS MUST HAVE BEEN RUN SUCCESSFULLY PRIOR 
:TO RUNNING THE FOLLOWING TESTS. ALSO, THE JUMPER CONNECTOR 
MUST BE INSERTED IN THE DL11-E CABLE IN PLACE OF THE MODEM. 
REFER TO OPERATION WITH JUMPER INSERTED. 


COMMENTS 


TSTA 100. ,AFB,0 
TSTAA = AFB,100., X#1#0, X#2, X+1 
OPP e PPPS e TSS i Perici reir titi titi titel ir itit ii ii te titi tii ti titi titi titi i titi ttt t 
AT22: 22 ; TEST NUMBER * 
AT23 ADDRESS OF NEXT TEST * 
100. : ITERATION COUNT * 
AFBA ;SCOPE ENTRY POINT * 


SEQ 0035 
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1873 000022 X=X+1 * 

1874 seququqnecenedeceeuqqooneesenqnesoesoneeueteconensesoensnseeseeouenenenssenonnees 

1875 3s TEST THAT CARRIER DETECT SETS AND CLEARS WHEN DATA TERMINAL 

1876 >READY SETS AND CLEARS. 

1877 010100 052777 000002 171302 AFBA: BIS #BIT1,aRXCSR ;SET DATA TERMINAL READY 

1878 010106 004737 011762 JSR 47, TIME ; DELAY 

1879 010112 032777 010000 171270 BIT #BIT12,aRXCSR s TEST CARRIER DETECT 

1880 010120 001002 BNE AFBB ;SHOULD BE SET 

1881 010122 104003 ERROR sWASN'T -s 

1882 010124 000412 BR AFBC 

1883 010126 042777 000002 171254 AFBB: BIC #B1T1,@RXCSR ;CLEAR DATA TERMINAL READY 

1884 010134 004737 011762 JSR 47, TIME s DELAY 

1885 010140 032777 010000 171242 BIT #BIT12,a@RXCSR 3; TEST CARRIER DETECT 

1886 010146 001401 BEQ AFBC 

1887 010150 104003 ERROR sWAS SET, ERROR 

1888 010152 104012 AFBC: SCOPE 

1889 010154 TSTA 100. ,AGB,0 

1890 010154 TSTAA AGB,100., X#1+#0, X#2, X+1 

1891 eee e Steet iii Stet SiS III iii titi itt ttt TTT TIT iti tii itt iti titi itt ttt ttt) 

1892 010154 000023 AT23: 23 ; TEST NUMBER * 

1893 010156 010326 AT24 sADDRESS OF NEXT TEST * 

1894 010160 000144 100. ; ITERATION COUNT * 

1895 010162 010164 AGBA : SCOPE ENTRY POINT * 

1896 000023 X=X+1 * 

1897 Peeeeeeeeeeeteteeeeeteeeeeetee: PITT TTT ITITITTTITTTI LITT TT TTT TTT TTT T TTT TTT TTttte 

1898 ;TEST THAT MODEM INTERRUPT (BIT 15) SETS WHEN CARRIER DETECT 

1899 ;CHANGES STATE, AND IS CLEARED WHEN RXCSR IS READ. 

1900 010164 042777 000002 171216 AGBA: BIC #BIT1,aRXCSR 3;CLEAR DATA TERMINAL READY 

1901 010172 004737 011762 JSR 27, TIME ; DELAY 

1902 010176 017737 171206 001606 MOV ARXCSR,RXCSRT READ RXCSR 

1903 010204 032777 100000 171176 BIT #B1T15,@RXCSR 7 TEST MODEM INTERRUPT 

1904 010212 001402 BEQ AGBB sWAS CLEAR GO TO AGBB 

1905 010214 104003 ERROR sWASN'T CLEAR 

1906 010216 000442 BR AGBE 3;GO TO SCOPE 

1907 010220 052777 000002 171162 AGBB: BIS #BIT1,aRXCSR sSETTING DATA TERMINAL READY 

1908 ;CAUSES CARRIER DETECT TO SET 

1909 sWHICH CAUSES MODEM INTERRUPT TO SET 

1910 010226 004737 011762 JSR 417, TIME s DELAY 

1911 010232 017737 171152 001606 MOV ARXCSR,RXCSRT s;MOVE RXCSR TO TEMPORARY LOCATION 

1912 010240 032737 100000 001606 BIT #BIT15,RXCSRT ;TEST MODEM INTERRUPT 

1913 010246 001002 BNE AGBC ;SHOULD BE SET GO TO AGBC 

1914 010250 104003 ERROR sWAS CLEAR 

1915 010252 000424 BR AGBE 3GO TO SCOPE 

1916 010254 032777 100000 171126 AGBC: BIT #BIT15,aRXCSR :MODEM INTERRUPT BIT SHOULD 

1917 ;HAVE BEEN CLEARED 

1918 010262 001402 BEQ AGBD :IT WAS S TO AGBD 

1919 010264 104003 ERROR :1T WASN'T 

1920 010266 000416 BR AGBE :60 TO SCOPE 

1921 010270 042777 000002 171112 AGBD: BIC #BIT1,@RXCSR CLEARING DATA TERMINAL READY 

1922 ;CAUSES CARRIER DETECT TO CLEAR 

1923 ;BUT MODEM INTERRUPT WILL SET 

1924 010276 004737 011762 JSR 47, TIME ; DELAY 

1925 010302 017737 171102 001606 MOV ARXCSR,RXCSRT sMOV RXCSR TO TEMPORARY LOCATION 

1926 010310 032737 100000 001606 BIT #BIT15,RXCSRT 3s TEST MODEM INTERRUPT 

1927 010316 001002 BNE AGBE ;SHOULD BE SET 


1928 010320 104003 ERROR :1T WASN'T 
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010322 000400 BR AGBE 
010324 104012 AGBE: STOPE SCOPE 
010326 TSTA 100.,AJB,0 
010326 TSTAA AJB,100., X#1#0, X#2, X41 
MASSA ESAS A SAAR ASAS SALSA AL ESAS ARS SA SESSA S SESE EES ESE SES ESSE RSA SAR ARS SSSR EASES | 
010326 000024 AT24: 24 : TEST NUMBER * 
010330 010440 AT25 ; ADDRESS O} NEXT TEST . 
010332 000144 100. ; ITERATION COUNT * 
010334 010336 AJBA : SCOPE ENTRY POINT * 
v00024 X=X+1 « 
PETTITTE TIITIIII TILT LTT TTL TLL LITT iiiililiiiiiiiiiiiiiTtT tte 
; TEST THAT CLEAR TO SEND (BIT13) SETS/CLEARS WHEN DATA TERMINAL 
> READY SETS/CLEARS. 
010336 042777 000002 171044 AJBA: Ic #B1IT1,@RXCSR ;CLEAR DATA TERMINAL READY 
011762 27, TIME ; DELAY 
020000 171032 #B1T13,@RXCSR ; TEST CLEAR TO SEND 


AJBB 
: ae :CLEAR TO SEND SHOULD BE CLEAR 
J 

000002 171016 : #BIT1,@RXCSR :SET DATA TERMINAL READY 
011762 27, TIME DELAY 
020000 171004 #BIT13,@RXCSR  ;TEST CLEAR TO SEND 

AJBC BRANCH IF SET 

:CLEAR TO SEND SHOULD BE SET 


B AJBD 
000002 170770 : #BIT1,@RXCSR : CLEAR DATA TERMINAL READY 
011762 J %7, TIME 


DELAY 
020000 170756 #B1T13,@RXCSR TEST CLEAR TO SEND 


AJBD 
E ;CLEAR TO SEND SHOULD BE CLEAR 
104012 AJBD: SCOPE 
T 100. ,AKB,0 
010440 AKB,100., X+1#0, X#2, X+1 
iff t ee eee R PRR R RRR RERASRRRREEASEEREALA SSSA SESSA SESS SESE SESE SSS SEER ESSE SEES ESSE SS 
010440 000025 AT25: 25 ; TEST NUMBER * 
010442 010534’ AT26 ;ADDRESS OF NEXT TEST * 
010444 000144 100. : ITERATION COUNT * 
010446 010450 ° AKBA : SCOPE ENTRY POINT * 
000025 X=X+1 . 
PPITITIIITIT IIIT LILI LTTTLT LLL TLL LTT ii iiiiiiiiiiiti TTT 
7 TEST THAT RING (BIT 14 RXCSR) SETS WHEN REQUEST TO 
> SEND SETS AND CLEARS AND RESET CLEARS RING 
010450 042777 000004 170732 AKBA: Ic #BIT2,aRXCSR ;CLEAR REQUEST TO SEND 


27, TIME : DELAY 
170720 #BIT2,aRXCSR SET REQUEST TO SEND 
47, TIME 7 DELAY 
04000C 170706 , #BIT14,@RXCSR =; TEST RING 
AKBC 


E RING SHOULD BE SET 
000004 170674 : #BIT2,@RXCSR :CLEAR REQUEST TO SEND 
011762 J <7, TIME :DELAY 
040000 170662 #BIT14,aRXCSR =; TEST RING 

+4 ; SHOULD BE CLEAR 


104012 ; SCOPE 
010534 . 100. ,A0B,0 
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010534 TSTAA AOB,100., X#1#0, X#2, X+1 


ITITITITITITILITT LETTE TTTTTLITIT TTT TIL LLL Titi rt iti iii 
010534 000026 AT26: 26 ; TEST NUMBER * 
010536 010646 AT27 SADDRESS OF NEXT TEST * 
010540 000144 100. S ITERATION COUNT * 
010542 010544 AOBA ;SCOPE ENTRY POINT * 
000026 X=X+1 * 
ITTITITELILITI LILI LI LIL TT LILI TLI TTL Li LiL TiTiTi titi litiiitiiiiiiiiiiiiiiiite 
:TEST THAT MODEM INTERRUPT (BIT 15 RXCSR) SETS WHEN RING SETS. 
010544 042777 000004 170636 AOBA: WBIT2,aRXCSR CLEAR REQUEST TO SEND 
011762 247, TIME DELAY 
100000 170624 #B1T15 ,ARXCSR :TEST MODEM INTERRUPT BIT 
A 


B AOBD 
000004 170610 : #BIT2,aRXCSR ;SET REQUEST TO SEND 
011762 27, TIME :DELAY 
100000 170576 con een : TEST MODEM INTERRUPT BIT 
AO 


B AOBD 
000004 170562 : #B1T2,aRXCSR ;CLEAR REQUEST TO SEND 
011762 27, TIME :DELAY 
100000 170550 a. : TEST MODEM INTERRUPT BIT 
AOBD 


E 
104012 AOBD : : ; SCOPE 


100. ,ALB,0 
010646 ALB,100., X+1#+0, X#2, X+1 
itt Pe PPP PRR R RRR RR RR RAR RASA LALESAL ELSES EERE SESE REESE ERE A SESE R SEAS SESS ES SG 
010646 000027 AT27: 27 ; TEST NUMBER . * 
010650 010760 AT30 ADDRESS OF NEXT TEST * 
010652 000144 100. ; ITERATION COUNT * 
010654 010656 ALBA : SCOPE ENTRY POINT * 
000027 X=X+1 * 
peeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeteeeeeeeteteeeeeeeeeeeeeeeeeeeeeeeeeeteet 
sTEST THAT SUPERVISORY RECEIVE DATA (BIT 10 RXCSR) SETS/CLEARS 
;WHEN SUPERVISORY XM'T DATA SETS/CLEARS. 
010656 042777 000010 170524 ALBA: IC #BIT>,a@RXCSR ope SUPERVISOR XMIT DATA 
011762 27, TIME ;DELAY 
002000 170512 #BITIO,@RXCSR ;TEST SUPERVISORY RECEIVE DATA. 
ALBB 


; SHOULD HAVE BEEN CLEAR 


8 ALBD 
000010 170476 : #BIT3,aRXCSR SET SUPERVISORY XMIT DATA 
011762 27, TIME DELAY 

00200C 170464 #BIT10,@RXCSR  ;TEST SUPERVISORY RECEIVE DATA 


ALBC 
; SHOULD HAVE BEEN SET 


B 
000010 170450 : #8115, @RXCSR Se SUPERVISORY XMIT DATA 
011762 J 27, TIME 7D 

002000 170436 piti0, -@RXCSR TEST " SUPERVISORY RECEIVE DATA 


; SHOULD HAVE BEEN CLEAR 
OPE 


E 
010756 104012 : SCOPE 
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010760 
010760 


010760 
010762 
010764 
010766 


010770 
010776 
011002 
011010 
011014 
011022 
011024 
011026 
011030 
011036 
011040 


—— ss 
at ad ad od 
mrnrmn Nwr--— 
AaEeMO COCFNM 


SCOCOONNOUMNS Sw 
HSMOANMLALS-AEAO 


000030 
011120 
000144 
010770 
000030 


042777 


104012 


100031 


000031 


012737 


004537 
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060010 
011762 


100000 


100000 


000010 
011762 
100000 


000010 
011762 
100000 


000340 
177777 


000200 
170232 


000200 
004474 


004474 


170412 
170400 
170366 


170352 


170336 
170324 


170310 
170276 


177776 
170250 


170240 


091604 
001616 


08: 


52 PAGE 39 
TSTA 
TSTAA 

AT30: 30 


K=X¢+1 


100. ,AMB,0 


SEQ 0039 


AMB,100., X#1#0, X#2, X41 


PRA AARAAA AREA RAAT A EEA E EEE AAAAEREKAAAKAKERAAEAKAKA AKA K Kee eee eA 


; TEST NUMBER * 
ADDRESS OF NEXT TEST ‘ ° 
; ITERATION COUNT . 
; SCOPE ENTRY POINT * 
° ® 


° 
PERRET AAA AE AAA A EEA TAA E EEE E ARERR EEEARAREKRE REET RE EAS 


7 TEST THAT SUP REC DATA TRANSISTIONS SET MODEM INTERRUPT 


AMBA: BIC 


AMBB: 


AMBC: 


AMSD: 


AMBE: 
TSTAA 


AT31: 100031 


AT32 


X=X+1 


#BIT3,aRXCSR 
27, TIME 
#BIT3,aRXCSR 
27, TIME 
#B1T15,aRXCSR 
AMBB 


AMBE 
#B1T15,aRXCSR 
AMBC 


AMBE 
#BIT3,@RXCSR 
27, TIME 
#BIT15,@RXCSR 
AMBD 


AMBE 
#BIT3,@RXCSR 
47, TIME 
#BIT15,aRXCSR 
AMBE 


10.,ABA,CD 


;CLEAR SUP REC 
; DELAY 

;SET SUP REC 

3; DELAY 


;TEST MODEM INTERRUPT 
;MODEM INTERRUPT SHOULD BE SET 


;MODEM INTERRUPT SHOULD BE 
;CLEARED BY PREVIOUS READ 


31-0 TRANS OF SUP REC DATA 
: DELAY 

;TEST MODEM INTERRUPT 

; SHOULD BE SET 


70-1 TRANS OF SUP REC DATA 
; DELAY 

; TEST MODEM INTERRUPT 
;SHOULD BE SET 


ABA,10., X+1*CD, X#2, X+1 


'MARBABBASAASAAASAAAARASARRRLRRARRRARARRRRRARRARARRRRRRRRRR RR RRRRERRRRRASARARRAR RRR RARE SS! 


; TEST NUMBER * 
sADDRESS OF NEXT TEST * 
: ITERATION COUNT a 
;SCOPE ENTRY POINT ® 
° * 

* 


:TEST THAT RESET CLEARS ALL TXCSR BITS, AND SETS BIT 7 (READY) 


ABAA: MOV 


#PRTY7,PSW 
#-1,aTXCSR 


#BIT7,aTXCSR 
ABAB 
@TXCSR,TXCSRT 


#BIT7, TEMP 
%5,0ACNV 


%5,0ACNV 


;SET PRIORITY 7. 

;SET ALL POSSIBLE BITS IN TXCSR 
; ISSUE RESET TO CLEAR BITS 
SEE IF ONLY BIT 7 IS SET. 
;BRANCH IF ONLY BIT 7 IS SET 
SAVE CONTENTS OF TXCSR 

sMOVE EXPECTED TXCSR TO TEMP. 
:GO TO OCTAL TO ASCII CONVERT. 
SOURCE ADDR. 

;DESTINATION ADDR. 

:#0F DIGITS TO CONVERT. 

:GO TO OCTAL TO ASCII CONVERT. 


—~. 
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001604 


011210 


011224 
011224 


011232 


011234 


011374 


011374 
011376 
011400 
011402 


011404 


104012 


000032 
011374 
000012 
011234 
000032 


012737 


104012 


100033 
011454 
000012 
011404 
000033 


005077 
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000340 
000002 
177777 
000004 
170126 


000001 


170074 
030002 


030002 
004474 


004474 


000002 


170006 


177776 
170140 
170132 
170130 


170114 


001606 
001606 


001616 


170016 


ABAB: 


TXCSRT 
“re: 


ERROR1 
ATXCSR 
SCOPE 
TSTA 
TSTAA 


10.,ACA,0 
ACA,10., 


X+1+0, 


SEQ 0040 


;SOURCE ADDR. 

;DESTINATION ADDR. 

;#OF DIGITS TO CONVERT. 

;RESET FAILED TO CLEAR ALL BITS EXCEPT 
:BIT 7 - SEE PRINTOUT 

; SCOPE 


X+2, X#1 


SEPT eetS ti tieticistiiiecissr ister riti titi titi titi ri ti tii titi iii titi iii ii ts 
; TEST NUMBER ' 
sADDRESS OF NEXT TEST * 

ITERATION COUNT * 
: SCOPE ENTRY POINT * 

. 
* 


AT32: 


32 
AT33 


10. 
ACAA 
X=X+1 


pee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeedeeeeeeteeeeeeeeeeneeeeeeeeeeeeeeeeeeeeet 

;TEST THAT RESET CLEARS ALL RXCSR BITS EXCEPT DATA TERMINAL READY, RING 

[CLEAR "aa Gentet DET 
: V 


ACAA 


TSTAA 


#PRTY7,PSW 
#B1T1,@RXCSR 
#-1,@RXCSR 
#4,aTXCSR 
aTXBUF 


#1,aTXBUF 


@RXCSR,RXCSRT 
#30002 ,RXCSRT 


ACAB 
#30002, TEMP 
25,0ACNV 


25, 0ACNV 


#B1T1,aRXCSR 


10.,ADA,CD 
ADA,10., 


;SET PRIORITY 7 

ZCLEAR DATA TERM.READY 

;SET ALL POSSIBLE BITS IN RXCSR 
;SET MAINT BIT 

; TRANSMIT A CHAR 

;TIME OUT TX DONE 

ERROR DONE NOT SETTING 

; TRANSMIT ANOTHER CHAR. 

:TIME OUT RX DONE 

;ERROR DONE NOT SETTING 

; ISSUE RESET TO CLEAR BITS. 
;MOVE RXCSR CONTENTS TO RXCSRT 
;SEE IF ONLY BITS 1,12,13 SET 
;BRANCH IF ONLY BITS 1,12,13 SET. 


:GO TO OCTAL TO ASCII CONVERT. 
; SOURCE ADDR. 

sDESTINATION ADDR. 

:#0F DIGITS TO CONVER 

:GO TO OCTAL TO ASCII vconvERT. 

; SOURCE ADOR. 

:DESTINATION ADDR. 

:#0F DIGITS TO CONVERT. 

RESET FAILED TO CLEAR ALL BITS EXCEPT 
;BIT 0. SEE ERROR PRINTOUT. 

:CLEAR DATA TERM. READY 

: SCOPE 


X#14#CD, X+2, X+#1 


PReeeeReeeeeeeeeeeeeeeeeeeeeeeeeeeeeedeeeeeeeeteeeeeeneeeeeeeeeeeeeeeeeeeeneeer 


AT33: 


100033 


: TEST NUMBER * 
ZADDRESS OF NEXT TEST * 
: ITERATION COUNT . 
: SCOPE ENTRY POINT > 

o 
t 


PITITIIITILITISITITILITTI TTT LLITT LITT TTL TTLiT Tir iri iii ii iit 
TEST THAT LOADING TXBUF (TRANSMITTER BUFFER) CLEARS TXCSR BIT 7 (READY) 
:AND WITHOUT MAINT SET THAT TXDONE SETS READY 


ADAA: 


CLR 


aTXBUF 


;LOAD TXBUF 
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011410 104020 TIMETX TIME OUT TX DONE 
ERROR, DONE NOT SETTING 
167776 aTXBUF ;LOAD TX BUF 
167770 aTXCSR TEST TXCSR BIT 7 (READY BIT) 
ADAB ;BRANCH IF BIT NOT SET 
TERROR. LOADING TXBUF FAILED TO CLEAR READY. 


sWAIT FOR DONE 
;DONE NEVER SET 


ADAC 


000260 167750 0 einen 
+ 


:READY DID NOT SET 
104012 -— SCOPE. 
011454 AIA,1.. X#1#CD, X#2, X#1 


eee eee titel rire triste i tetra ii tit iit ia ti titi titi sti i itt itt t itt titi tt itt ti tt 

011454 100034 AT34: 100034 TEST NUMBER 

011456 011776 AT35 ZADDRESS OF NEXT TEST 

011460 000001 1. ; ITERATION COUNT 

011462 011464 AIAA : SCOPE ENTRY POINT 

000034 X=X+1 

ITIIIT III TLITL ILL ITLL LTTE TLL LTT TLL TTL Tritt 
TEST THAT TRANSMIT SPEEDS ARE ARRANGED IN ASCENDING ORDER BY CHECKING THAT TIME 
;TO READY BIT (TXCSR A 7) DECREASES AS A HIGHER SPEED IS SELECTED. 

011464 004737 006216 AIAA: sTEST IF THIS TEST SELECTED 

011470 

011472 

011474 

011476 

011500 

011502 

011504 27,A1AS ;OUTPUT CHAR AND TIME. 

011510 001564 AIAST,CTRO ;MOVE ELAPSED TIME TO CTRO. 


%7,AlAS ;OUTPUT CHAR AND TIME. 
001566 AIAST,CTR1 :MOVE ELAPSED TIME TO 


%7,A1AS ;OUTPUT CHAR AND TIME. 
001570 AIAST,CTR2 ;MOVE ELAPSED TIME TO 


%7,A1AS ;OUTPUT CHAR AND TIME. 
001572 AIAST,CTR3 ;MOVE ELAPSED TIME TO 


%7,AIAS ;OUTPUT CHAR AND TIME 
001574 J Ai AST,CTR4 sMOVE ELAPSED TIME TO 


011620 017344 
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011622 000000 
011624 011712 %7,AlAS ;OUTPUT CHAR AND TIME 
011630 011774 001576 AIAST,CTRS ;MOVE ELAPSED TIME TO CTRS5 


%7,AlAS ;OUTPUT CHAR AND TIME 
001600 MOV ALAST,CTR6 ;MOVE ELAPSED TIME TO CTR6 


011712 %7,AlAS ;OUTPUT CHAR AND TIME 
011774 001602 AIAST,CTR7 :MOVE ELAPSED TIME TO CTR7 
014424 %7,CMPT ;CHECK THAT CTRO THROUGH CTR7 CONTAIN 
AIAF ;DESCENDING VALUES 
; TRANSMIT SPEEDS NOT ARRANGED IN 
ASCENDING ORDER. 
011710 104012 7S°OPE 


011712 005037 011774 AIAS: :CLEAR ELAPSED TIME COUNTER. 
167472 T “WAIT FOR TX READY. 


167466 
167460 


167454 C ;LOAD TXBUF. 
011762 $ WAIT 75 US 
011774 : INCREMENT ELAPSED TIME COUNTER. 
167436 :READY SET? 
;BRANCH IF READY NOT SET. 
011760 000207 sEXIT. 


011762 012700 000017 TIME: 
011766 TIM1: 
011770 
011772 
011774 000000 AIAST: 
011776 T 10.,ALA,0 
011776 ALA,10., X#1#0, X#2, X+1 
SRR EERE EEE EEE EE AEE EEE AERA AAR ARERR REAR ERE EE 
011776 000035 AT35: 35 TEST NUMBER * 
012000 012052 1 [ADDRESS OF NEXT TEST . 
012002 000012 10. ; ITERATION COUNT * 
012004 012006 ALAA : SCOPE ENTRY POINT * 
000035 X=X+1 a 
Z  ekeRRERREReeeeeteeeeeeeeeeeeeeedereaeeeenedeananeneneeeereereneareaeeeeertereere 
3 TEST THAT OUTPUTTING A CHARACTER WITH THE MAINTENANCE BIT SET (TXCSR BIT 2) 
:RESULTS IN DONE BIT SETTING (RXCSR BIT 7) NO LATER THAN 500 MSECS, AND 
x THAT RESET INSTRUCTION CLEARS THE DONE BIT 


012006 052777 000004 167400 ALAA: #BIT2,aTXCSR ;SET MAINTENANCE BIT 
012014 167376 C aTXBUF ;LOAD TXBUF 

012020 6 WAIT 500 MSECS. 

012022 & 500. 

012024 167360 @RXCSR SEE IF DONE BIT IS SET 
012030 100402 ALAB ;BRANCH IF DONE BIT IS SET 
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012032 
012034 
012036 
012040 
012044 
012046 
012050 
012052 
012052 


012052 
012054 
012056 
012060 


012062 
012070 


012116 
012116 
012120 


012122 
012124 


012126 


012224 


104003 
000405 
104011 
105777 
100001 
104003 
104012 


100036 


000036 


052777 
005077 
104017 
104003 
005777 
105777 
100001 
104003 
104012 


100037 
012226 
000144 
012132 
000037 


004737 


104012 
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167344 


000004 
167322 


167306 
167300 


002706 


004000 


001616 
167220 


001616 


004000 


167166 


167324 


167254 


167232 


000000 


167174 


ALAB: 


ALAC: 


AT36: 


100036 


X=X+1 


ALAC 


@RXCSR 
ALAC 


100. ,AMA,CD 


SEQ 0043 


;DONE BIT FAILED TO SET 


ISSUE RESET TO CLEAR DONE BIT 
SEE IF DONE BIT IS CLEARED 

BRANCH IF DONE BIT IS CLEARED 
rtd FAILED TO CLEAR DONE BIT 


AMA,100., X#1+CD, X#2, X+#1 


PRR RAE EEE REE EEE RAE EEE AREER EEA EEE EERE ERA EEE 


; TEST NUMBER * 
ADDRESS OF NEXT TEST * 
; ITERATION COUNT * 
; SCOPE ENTRY POINT * 
. * 

* 


. 
FERRER EAE EEE REE EE EERE EATER EE AEE EEA 


: TEST THAT DONE BIT (RXCSR BIT 7) IS CLEARED BY READING RXSUF. 
;DONE SET BY OUTFUTTING CHARACTER WITH MAINTENANCE BIT SET (TXCSR BIT 2) 


AMAA: 


AMAC: 


AT37: 


TEST THAT RECEIVER ACTIVE SETS 
: CLEARS WHEN RECEIVER DONE SETS 


AOAA: 


AOAB: 


AOAB1: 


AOAC: 


AOAD: 


BIS 


X=X+1 


#BiT2,aTXCSR 
aTXBUF 


@RXBUF 
@RXCSR 
AMAC 


100. ,A0A,CD 


:SET MAINTENANCE BIT (TXCSR BIT 2) 
;LOAD TXBUF 
sWAIT FOR DONE BIT TO SET. 


READ RXBUF TO CLEAR DONE BIT 

SEE IF DONE BIT IS CLEAR 

BRANCH IF DONE BIT IS CLEAR a 
a gee RXBUF FAILED TO CLEAR DONE BIT 


AOA,100., X#1#CD, X#2, X+1 


hee e Dee RRR RRR RRERRRRRRRARASELALESEE SESE SEE SESE EE SELES ES EEE ESSER SSSR SEL SS SY 


%7,CDINIT 
#B1T2,aTXCSR 
@TXBUF 


TEMP 
#BIT11,aRXCSR 
AOAB1 


AOAD 
#BIT11,@RXCSR 
AOAD 


@RXBUF 


; TEST NUMBER * 
ADDRESS OF NEXT TEST * 
: ITERATION COUNT x 
: SCOPE ENTRY POINT * 
. * 

* 


WHEN CHAR STARTS AND 


INIT IF C-D DEVICE 
SET MAINT 


,; TRANSMIT CHAR 


;CLEAR BUSY INDICATOR 
:1S RECEIVER ACTIVE SET 
BRANCH IF CLEAR 

YES, REMEMBER THAT 
SEE IF DONE SET 


:DID RECEIVER ACTIVE SET 
RECEIVER ACTIVE NEVER SET 
:DID DONE CLEAR ACTIVE 


:NO, RECEIVER ACTIVE DID NOT CLEAR 
CLEAR RX DONE 
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2321 012226 TSTA 1.,AQA,0 

2322 012226 TSTAA = =AQA,1., X#1+0, X+2, X+1 

2323 FREE EEE EERE EEE EEE EEE EERE REE EERE REE 

2324 012226 000040 AT40: 40 ; TEST NUMBER * 

2325 012230 012530 AT41 ;ADDRESS OF NEXT TEST * 

2326 012232 000001 Te ; ITERATION COUNT * 

2327 012234 012236 AQAA SCOPE ENTRY POINT * 

2328 000040 X=X+1 : . 

2329 FURR TERE AEE ERE EEE EEE EEA EEE AERA EEE A EEE EEE EEE 

2330 TEST THAT RECEIVE SPEEDS ARE ARRANGED IN ASCENDING ORDER BY CHECKING THAT TIME 

2331 sELAPSED TO DONE BIT SETTING (RXCSR BIT 7) DECREASES AS A HIGHER SPEED 

2332 THIS IS NOT DONE IN MAINTENANCE MODE TX AND RX 

2333 ;POTS MUST BE STEPPED TOGETHER 

2334 1S SELECTED. 

2335 012236 004737 (606216 AQAA: JSR %7,DOTHIS : CHECK IF THIS TEST TO BE DONE 

2336 012242 104001 TYPES 

2337 012244 016736 MSETRX 

2338 012246 017012 MSETC 

2339 012250 017274 MSO 

2340 012252 177777 1 

2341 012254 000000 HALT 

2342 012256 004737 012464 JSR 27,AQAS ;OUTPUT CHARACTER AND TIME DONE BIT 

2343 012262 013737 012526 001564 MOV AQAST,CTRO ;MOVE ELAPSED TIME TO CTRO 

2344 012270 104000 TYPE 

2345 012272 017304 MS1 

2346 012274 000000 HALT , 

2347 012276 004737 012464 JSR %7,AQAS ;OUTPUT CHARACTER AND TIME DONE BIT 

2348 012302 013737 012526 001566 MOV AQAST,CTR1 ;MOVE ELAPSED TIME TO CTR1 

2349 012310 104000 ‘=. TVPE 

2350 012312 017314 MS2 

2351 012314 000000 HALT 

2352 012316 004737 012464 JSR %7,AQAS ;OUTPUT CHARACTER AND TIME DONE BIT. 

2353 012322 013737 012526 001570 MOV AQAST,CTR2 sMOVE ELAPSED TIME TO CTR2. 

2354 012330 104000 TYPE 

2355 012332 017324 MS3 

2356 012334 000000 HALT 

2357 012336 004737 012464 JSR %7,AQAS sOUTPUT CHARACTER AWD TIME DONE BIT 

2358 012342 013737 012526 001572 MOV AQAST,CTR3 ;MOVE ELAPSED TIME TO CTR3. 

2359 012350 104000 TYPE 

2360 012352 017334 MS4 

2361 012354 000000 HALT 

2362 012356 004737 012464 JSR %7,AQAS 

2363 012362 013737 012526 001574 MOV - AQAST,CTR4 

2364 012370 104000 TYPE 

2365 012372 017344 MS5 

2366 012374 000000 HALT 

2367 012376 004737 012464 JSR %7,AQAS 

2368 012402 013737 012526 001576 MOV AQAST,CTRS 

2369 012410 104000 TYPE 

2370 012412 017354 MS6 

2371 012414 000000 HALT 

2372 012416 004737 012464 JSR %7,AQAS 


2373 012422 013737 012526 001600 MOV AQAST,CTR6 
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012430 104000 


012464 J %7,AQAS 
012526 001602 AQAST,CTR7 
014424 %7,CMPT ;CHECK THAT CTRO THROUGH CTR3 CONTAIN 
AQAB ;DESCENDING VALUES. 
sRECEIVE SPEEDS NOT ARRANGED IN 
ASCENDING ORDER. 
012462 104012 ; SCOPE 


012464 005037 012526 AQAST ;CLEAR ELAPSED TIME COUNTER AQAST 
166720 T _— s;WAIT FOR TX READY. 
166710 Y @RXBUF ;CLEAR DONE BIT IF SET 
166710 C aTXBUF ;LOAD TXBUF 
011762 27, TIME 
012526 I AQAST ; INCREMENT ELAPSED TIME COUNTER 
166666 @RXCSR ;DONE SET? 
AQASA ;BRANCH IF DONE NOT SET 
R . BF EXIT 
000000 AQAST: sELAPSED TIME COUNTER 
10.,ARA,CD 
012530 ARA,10., X+#1#CD, X#2, X+1 
atte te eee PDD RRO RPP R ADRS RARASESRRASESASESESESAS ESLER SSE S EEE S ER SSE SESS SES SE SY 
012530 100041 AT41: 100041 ; TEST NUMBER 
012532 012674 sADDRESS OF NEXT TEST 
012534 000012 , ; ITERATION COUNT 


*® 
a 
® 
012536 012540 ;SCOPE ENTRY POINT * 
000041 ; * 

*® 


: TEST CORRECT OPERATION OF DATA OVERRUN BIT (RXBUF BIT 14) 
012540 004737 012654 ARAA: JSR %7,ARAS ;OUTPUT CHARACTER AND WAIT 500 MSECS 
012654 77, ARAS ;OUTPUT CHARACTER AND WAIT 500 MSECS 
166636 @RXBUF,RXBUFT ;SAVE RXBUF CONTENTS + CLEAR DONE 
040000 #BIT14,RXBUFT  ;SEE IF DATA OVERRUN BIT WAS SET 
-+6 ;BRANCH IF BIT WAS SET 


001610 os ;SEE THAT ERROR BIT WAS SET (RXBUF BIT 15) 
.+ 
;ERROR BIT FAILED TO SET WHEN OVERRUN SET 
012604 032777 040000 166600 #B1T14,aRXBUF ;SEE THAT DATA OVERRUN WAS NOT 
;CLEARED WHEN RXBUF WAS READ 
012612 001002 - +6 BRANCH IF SET 
;READING RXBUF CLEARED DATA OVERRUN 
012654 %7,ARAS 
100000 166560 #B11T15,aRXBUF SOUTPUT CHAR +WAIT SOOMS 
. +6 : TEST THAT ERROR CLEARED 
040000 166544 1 ‘dihiiaaiemeal 7 TEST THAT OVERRUN CLEARED 
.+ 


012650 104003 
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012652 


012674 
012674 
012676 


012700 
012702 


012704 


012762 
012762 
012764 


012766 
012770 


012772 


013040 
013040 


MACY11_30A(1052) 
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104012 
052777 
005077 
104016 
000764 
000207 


100042 
012762 
000012 
012714 
000042 


004737 


000772 


100043 
013040 
001750 
012776 
000043 


104007 


000771 


100044 


000004 
166530 


003516 


000100 
177776 
000100 
000100 


000100 


001426 
000100 
000100 


000100 


166532 


166472 
166460 


166446 
166436 


177776 
166402 
166374 


166364 


ARAS: 
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SCOPE 

BIS #BIT2,aTXCSR 
CLR aTXBUF 

DELAY 

500. 

RTS %7 

TSTA 10.,ATA,CD 
TSTAA = ATA,10., X+#1+#CD, 


; SCOPE 

;SET MAINTENANCE BIT 
;LOAD TXBUF 

;DELAY 500 MSECS 


sEXIT 


X+#2, X+1 


FREE EEE EERE EERE EEE EEE REE EEE EERE EERE REET 


AT42: 


100042 
43 


; TEST NUMBER 


* 
ADDRESS OF NEXT TEST * 
; ITERATION COUNT . 
; SCOPE ENTRY POINT + 
* 
* 


PUTTITITICITIII IIIT TTT ITTTTTTITI LITT LTLiLiLiTiTiTitiiiiiiiiiiiiiiiiiTi ttt 


:TEST THAT TRANSMITTER IS ABLE TO INTERRUPT. 


IF THE INTERRUPT IS SERVICED, 


:1T WILL HAVE OCCURRED AT THE CORRECT VECTOR. 


ATAA: 


ATAB: 
ATAC: 


JSR 7,0VRLAY 
STTXV 

ATAC 

BIC #BIT6,aTXCSR 
CLR PSW 

BIS #BIT6,aTXCSR 
NOP 

ERROR 

BIC #BIT6,aTXCSR 
SCOPE 

BIC #BIT6,aTXCSR 
POPSP2 

BR ATAB 

TSTA 1000. ,AUA,CD 


AUA,1000., 


:GO TO OVER LAY ROUTINE 

;SET TX INTERRUPT SERVICE 
:TO ATAC 

:DISABLE TX INTERRUPT 

:SET PROCESSOR PRIORITY TO 0 
;ENABLE TX INTERRUPT 


READY DID NOT CAUSE AN INTERRUPT 


; SCOPE 
HERE IF INT, 


DISABLE TX INT 


X+1#C(D, X#2, X+1 


‘tftp eee eee eR RRR RRRERARARR SAAR EARSASASASSESEEELLS ESE ESSE RARER SESS EERE SEES Sf 


AT43: 


: TEST NUMBER * 
ADDRESS OF NEXT TEST * 
; LTERATION COUNT + 
: SCOPE ENTRY POINT * 
*® 
® 


PITTITITILILITITITI TILL TTI TTTLIILI LITT TTT LL LLL ti ii iiiiTiiiiii tit Teiie 
: TEST THAT READY DOES NOT CAUSE AN INTERRUPT WHEN THE PROCESSOR IS 
TAT THE SAME PRIORITY AS THE TRANSMITTER INTERRUPT REQUEST LEVEL 


AUAA: 


AUAB: 
AUAC: 


;SET TX INTERRUPT SERVICE TO 
;SET PROCESSOR PRIORITY SAME AS TX PRIORITY 
sENABLE TX INTERRUPTS 


ten NO INTERRUPT OCCURS. DISABLE INTERRUPTS 


HERE IF INTERRUPT OCCURS. POP STOCK TWICE 
TX INTERRUPTED WITH PROCESSOR AT SAME 


[PRIORITY AS THE TRANSMITTER 


STTXV 

AUAC 

MOV TXLVL ,PSW 
BIC #BIT6,aTXCSR 
BIS #BIT6,aTXCSR 
NOP 

BIC #BIT6,aTXCSR 
SCOPE 

POPSP2 

ERROR 

BR we 

TSTA 10-, CD 
TSTAA AVA, 10. » X#14CD, X#2, X+1 


fff Dee ee eR PRR R RARER RRA ERSARSASESESESEEL ESE SESS ESSE SERRE RRS E SESS ESSER EEE Soa 


AT44: 


100044 


; TEST NUMBER * 
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«+86 013042 013124 AT45 ;ADDRESS OF NEXT TEST * 
2487 013044 000012 10. ; ITERATION COUNT * 
2488 013046 013054 AVAA : SCOPE ENTRY POINT * 
2489 000044 * X=X+1 * 
2490 " PITTI TITELETTTTTLI TILL TT TILL LLL LiLiTTTi Titi iiiiiiiTiitiitie 
2491 : TEST THAT TRANSMITTER INTERRUPTS WHEN PROCESSOR IS AT PRIORITY ONE LEVEL 
2492 LOWER THAN THE TRANSMITTER INTERRUPT PRIORITY. 
2493 013050 104007 STTXV 7SET TX INTERRUPT SERVICE TO AVAB 
2494 013052 013112 AVAB 
2495 013054 042777 000100 166332 AVAA: BIC #BIT6,aTXCSR :DISABLE TX INTERRUPTS 
2496 013062 013737 001426 177776 MOV TXLVL,PSwW ;SET PROCESSOR PRIORITY TO ONE LEVEL 
2497 013070 162737 000040 177776 SUB #40,PSW ;LOWER THAN TX PRIORITY 
2498 013076 052777 000100 166310 BIS #BIT6,aTXCSR sENABLE TX INTERRUPTS 
2499 013104 000240 NOP 
2500 013106 104003 ERROR 3TX FAILED TO INTERRUPT 
2501 013110 000401 BR AVAC 
2502 013112 022626 AVAB: POPSP2 ;HERE IF INTERRUPT OCCURS. POP STOCK TWICE 
2503 013114 042777 000100 166272 AVAC: BIC #BIT6,aTXCSR :DISABLE TX INTERRUPTS 
2504 013122 104012 SCOPE > SCOPE 
2505 013124 TSTA 100. ,AWA,CD 
2506 013124 TSTAA AWA,100., X+1#CD, X#2, X+1 
2507 TTT TITITITE LITT TTE TITTLE TETT LETTE TTT TTT TTTTI TTT L TTT TTT Teeter eee 
2508 013124 100045 ATGS: 100045 ; TEST NUMBER * 
2509 013126 013222 AT46 ;ADDRESS OF NEXT TEST * 
2510 013130 000144 100. ; ITERATION COUNT * 
2511 013132 013134 AWAA ; SCOPE ENTRY POINT * 
2512 000045 X=X+1 * 
2513 _inkdiieapedantecedesadiaibiaincesitinheitea atniirabeibeleatasahipiebtnicsteanensndddiaienantasdiindinutinnen 
2514 ; TEST THAT TRANSMITTER DOES NOT REINTERRUPT AFTER THE INITIAL INTERRUPT HAS 
2515 OCCURRED AND HAS BEEN SERVICED. 
2516 013134 104007 AWAA: STTXV ;SET TX INTERRUPT SERVICE TO AWAC 
2517 013136 013174 AWAC 
2518 013140 042777 000100 166246 BIC #BIT6,aTXCSR ;DISABLE TX INTERRUPTS 
2519 013146 005037 177776 CLR PSW ;SET PROCESSOR PRIORITY TO 0 S 
2520 013152 052777 000100 166234 BIS #BIT6,°TXCSR sENABLE TX INTERRUPTS 
2521 013160 000240 NOP 
2522 013162 104003 ERROR ; TRANSMITTER FAILED TQ INTERRUPT 
2523 013164 042777 000100 166222 AWAB: BIC #BIT6,aTXCSR ;DISABLE TX INTERRUPTS 
2524 013172 104012 SCOPE ; SCOPE 
2525 013174 012777 013214 166222 AWAC: MOV #AWAE ,ATXVTR ;HERE IF INTERRUPT OCCURS. CHANGE EXIT 
2526 013202 012716 013210 MOV - #AWAD,@%6 :POINTER TO AWAD AND EXIT INTERRUPT 
2527 013206 000002 RTI 
2528 013210 000240 AWAD: NOF 70K IF NO INTERRUPT REOCCURS. 
2529 013212 000764 BR AWAB 
2530 013214 022626 AWAE: POPSP2 ;HERE IF INTERRUPT REOCCURS 
2531 013216 104003 ERROR 3 TX REINTERRUPTED AFTER RTI 
2532 013220 000761 BR AWAB 
2533 013222 TSTA 10.,AXA,CD 
2534 013222 TSTAA = AXA,10., X#1#CD, X#2, X+1 
2535 PPPS SESSA SE SSS SLES ELSES E TES E TEESE EEE SESE CSCC SCEPC CCC PSCC cee ccc cece cece ec cee est | 
2536 013222 100046 AT46: or ; TEST NUMBER « 
2537 013224 013306 AT4 S ADDRESS OF NEXT TEST . 
2538 013226 000012 a : ITERATION COUNT x 
2539 013230 013246 AXAA : SCOPE ENTRY POINT « 
2540 000046 X=X+1 * 
2541 TTITITITITITITI LIT LLL TTT POSES SSOLOSCSCOSCSC OES Sy 


oe 


013232 


013306 


013306 
013310 
013312 
013314 


013316 
013322 
013324 


013370 
013370 
013372 


013374 
013376 


013400 


013424 
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004737 


104012 


000047 
013370 
000012 
013326 
000047 


004737 
104006 
013356 


104012 


100050 
013452 
001750 
013410 
000050 


104006 
013444 
004737 
042777 
013737 
052777 


003516 


014404 
000100 
177776 
000100 


000100 


003516 


000044 
177776 
000044 


000040 


014404 
000100 
001422 
000100 
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; TEST THAT RECEIVER DONE BIT IS ABLE TO INTERRUPT. 
SERVICED IT WILL HAVE OCCURRED AT THE CORRECT VECTOR 
JSR AY :GO TO OVERLAY ROUTINE 


SEQ 0048 


IF THE INTERRUPT IS 


;SET RX INTERRUPT SERIVCE TO AXAB 


%7,STRXD 
#BIT6,aRXCSR 
SW 


Pp 
#BIT6,aRXCSR 


166134 
166122 


AXAA: 


SET RX DONE BIT 
;DISABLE RX INTERRUPTS 
;SET PROCESSOR PRIORITY TO 0 


ENABLE RX INTERRUPTS 


RX FAILED TO INTERRUPT 


AXAC 
#BIT6,aRXCSR 


10. ,AX1,0 
AX1,10., 


AXAB: 


166104 AXAC: 


X+1+0, 


X+2, 


;HERE IF INTERRUPT OCCURS 
;DISABLE INT EN 
; SCOPE 


X+1 


PETTITT TT TET ETITTLIE TTT TT TTT TTT I TTT TTT TTTT LETTE TET TTT TTT 


AT47: 47 


ATS5O 
10. 
AX1A 
X=X+1 


; TEST NUMBER 


* 
;ADDRESS OF NEXT TEST * 
: ITERATION COUNT * 
+ SCOPE ENTRY POINT . 
* 
* 


Peete eeeeeeeee eee ee eee eee eee Reet eeteeeeeeeeeeeeeeeeneeeeeeeneeeeteeeeeeeet 


;TEST THAT MODEM INTERRUPT BIT IS ABLE TO INTERRUPT. 
AT THE CORRECT VECTOR. 
:GO TO OVERLAY ROUTINE 


: SERVICED IT WILL HAVE OCCURRED 
SR 7,OVRLAY 


IF THE INTERRUPT IS 


:SET RX INTERRUPT SERIVCE TO AXAB 


166054 
166042 


#44 ,AaRXCSR 
PSW 
#44 ,AaRXCSR 


:DISABLE MODEM INTERRUPTS 
SET PROCESSOR PRIORITY TO 0 
sENABLE MODEM INTERRUPTS,RQ TO SND 


sMODEM FAILED TO INTERRUPT 


AX1C 
#BITS,@RXCSR 


1000. ,AYA,CD 
AYA,1000. o 


AX1B: 


166022 AX1C: 


TSTAA 


sHERE IF INTERRUPT OCCURS 
;DISABLE INT EN 


X#1#CD, X#2, X41 


htt PPP PRR RP RR ER RRRRRE REAR AAASESASSLESS ASSESSES ESE ERASERS RRR ESSE SESS SSS ESSE SESS SY 


AT50: 100050 
AT51 
1000. 
AYAA 
X=X+] 


; TEST NUMBER * 
ADDRESS OF NEXT TEST * 
: ITERATION COUNT * 
: SCOPE ENTRY POINT * 
*® 
z 


PITITITILILIIIITILITTTT LTT TLL LLL LTT LLL LLL TTT iTi iri 
;TEST THAT RECEIVER DONE BIT DOES NOT CAUSE AN INTERRUPT WHEN THE PROCESSOR 
1S AT THE SAME PRIORITY LEVEL AS THE RECEIVER INTERRUPT REQUEST LEVEL 

STRXV ;SET RX INTERRUPT SERVICE TO AYAC 


%7,STRXD 
#BIT6,aRXCSR 
RXLVL ,PSW 
#BIT6,@RXCSR 


SET RX DONE BIT 

DISABLE RX INTERRUPTS 

SET PROCESSOR PRIORITY SAME AS RECEIVER'S 
ENABLE RX INTERRUPTS 
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013432 000240 NOP 
042777 000100 165746 AYAB: ’ :;OK IF NO INTERRUPT. DISABLE RX INTERRUPTS 
104012 SCOPE ; SCOPE 
022626 AYAC: HERE IF INTERRUPT OCCURS. POP STOCK TWICE 
104003 c RX INTERRUPTED WITH PROCESOR AT SAME 
000771 AYAB :PRIORITY AS THE RECEIVER 


013452 TSTAA AZA,10.. X#1#CD, X#2, X+1 


PRR EEE EERE EEE EEE EEE EERE EEA EERE AKER 


013452 100051 : ; TEST NUMBER 


*® 
013454 013542 ATS ZADDRESS OF NEXT TEST * 
013456 000012 ITERATION COUNT * 
013460 013472 ;SCOPE ENTRY POINT : 
000051 * 
PITTI ITIL TLITILILI LILLIE TTTLILI TILL TiTiiii lili titi te eet ttt 
;TEST THAT RECEIVER DONE BIT CAUSES INTERRUPT WHEN PROCESSOR IS AT PRIORITY 
ONE LEVEL LOWER THAN THE RECEIVER'S INTERRUPT REQUEST LEVEL 
013462 104006 STRXV :SET RX INTERRUPT TO AZAB 


014404 J %7,STRXD ;SET RX DONE BIT 

000100 165710 : #B1T6,aRXCSR :DISABLE RX INTERRUPTS 

001422 177776 RXLVL ,PSW ;SET PROCESSOR PRIORITY ONE LEVEL 
000040 177776 #40,PSW ;LOWER THAN RECEIVER'S PRIORITY 
000100 165666 #BIT6,aRXCSR sENABLE RX INTERRUPTS 


7RX FAILED TO INTERRUPT WITH PROCESSOR AT 
AZAC :PRIORITY ONE LEVEL LOWER THAN RECEIVER'S 
; THERE IF INTERRUPT OCCURS 
000100 165650 :; #B1T6,aRXCSR - : DISABLE RX INTERRUPTS 
104012 : SCOPE 
100. ~AAB,CD 
013542 AAB,100.. X#1*CD, X+#2, X#1 
TTT TTI TELE LETT TT TTT ELITE TTT TT TITTLE TTT TTT TTT TTT Tee 
013542 100052 AT52: 100052 TEST NUMBER . 
013544 013640 ATS3 ZADDRESS OF NEXT TEST * 
013546 000144 100. SITERATION COUNT * 
013550 013556 AABA ;SCOPE ENTRY POINT * 
000052 X=K+1 * 
PPITTTITTTITITITITITILI TITEL TTL TTL TLL TLL Titi iiiiiiiitiriiiiiiTT tte 
:TEST THAT RECEIVER DOES NOT INTERRUPT AFTER THE INITIAL INTERRUPT HAS 
OCCURED AND DONE BIT HAS NOT BEEN CLEARED 
013552 004737 014404 JSR 27, STRXD :SET RX DONE BIT 
AABA: SET RX INTERRUPT SERVICE TO AABC 
A 


000100 165620 #BIT6,aRXCSR ;DISABLE RX INTERRUPTS 
000100 165612 #BIT6,aRXCSR sENABLE RX INTERRUPTS 


RX FAILED TO INTERRUPT 
000100 165600 : #BIT6,aRXCSR —- RX INTERRUPTS 


; SCOPE 
013632 165600 : #AABE ,ARXVTR HERE IF INTERRUPT OCCURS. CHANGE SERVICE TO 
013626 #AABD ,a%6 ;AABE, SET EXIT POINTER TO AABD 

EXIT INTERRUPT SERVICE 

;OK IF NO INTERRUPT REOCCURS 


( BR AABB 
013632 022626 : HERE IF INTERRUPT REOCCURS 
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2654 013634 104003 ERROR RX REINTERRUPTED AFTER RTI 
2655 013636 000761 BR /*BB 
2656 013640 TSTA 100. ,ABB,CD 
2657 013640 TSTAA ABB,100., X+1+CD, X#2, X+1 
2658 PITTTITTTITELI TIT TTETETIT ILLITE LTTE TT TTL TLLTTTi Ti TT Tite ities 
2659 013640 100053. AT53: 100053 ; TEST NUMBER * 
2660 013642 013700 AT54 sADDRESS OF NEXT TEST * 
2661 013644 000144 100. ; ITERATION COUNT * 
2662 013646 013650 ABBA ; SCOPE ENTRY POINT * 
2663 000053 X=X+1 * 
2664 ITTITITILILILILI TILL TT LILI LI TILL LiL TiLitililitiiiiiiiiiiiiettiii 
2665 TEST THAT READING RXCSR DOES NOT CLEAR DONE BIT (RXCSR BIT 7 ) 
2666 013650 004737 014404 ABBA: JSR %7,STRXD SET RX DONE BIT 
2667 013654 017737 165530 001606 MOV @RXCSR,RXCSRT ;SAVE CONTENT OF RXCSR 
2668 013662 105777 165522 TSTB @RXCSR ;SEE IF DONE BIT IS CLEAR 
2669 013666 100401 BMI ABBB BRANCH IF DONE BIT IS NOT CLEAR 
2670 013670 104003 ERROR 
2671 013672 005777 165514 ABBB: TST @RXBUF ;CLEAR DONE BIT IF SET 
2672 013676 104012 SCOPE ; SCOPE 
2673 013700 TSTA 100. ,ACB,CD 
2674 013700 TSTAA ACB,100., X#1#CD, X#2, X+1 
2675 Re REE A EEE ERA ERE EERE EEE 
2676 013700 100054 AT54: 100054 TEST NUMBER * 
2677 013702 013764 AT55 ADDRESS OF NEXT TEST * 
2678 013704 000144 100. ; ITERATION COUNT * 
2679 013706 013714 ACBA : SCOPE ENTRY POINT * 
2680 000054 X=X+1 * 
2681 PTTTTTITILITITITTITIT LLL LITT TLL TLL liilitiiiiiiiiiiiiiiiTtt rte 
2682 TEST THAT DONE CAN CAUSE INT WITH ERROR SET 
2683 013710 104006 STRXV 7SET RX INTERRUPT SERVICE TO ACBB. 
2684 013712 013752 ACBB 
2685 013714 004737 014404 ACBA: JSR 27,STRYD ;SET RX DONE BIT 
2686 013720 004737 014404 JSR 27, STRXD ;SET RX DATA OFLOW 
2687 013724 042777 000100 165456 BIC #BIT6,aRXCSR :DISABLE RX INTERRUPTS 
2688 013732 005037 177776 CLR PSW :SET PROCESSOR PRIORITY TO 0 
2689 013736 052777 000100 165444 BIS #BIT6,aRXCSR sENABLE RX INTERRUPTS 
2690 013744 000240 NOP 
2691 013746 104003 ERROR :RX DONE FAILED TO CAUSE INTERRUPT 
2692 013750 000401 BR ACBC 
2693 013752 022626 ACBB: POPSP2 HERE IF INTERRUPT OCCURS. POP STOCK TWICE 
2694 013754 042777 000100 165426 ACBC: BIC #BI1T6,aRXCSR 
2695 013762 104012 SCOPE 
2696 013764 TSTA 3.,ADD0,CD 
2697 013764 TSTAA ADD,3., X#14#CD, X#2, X#1 
2698 PTTITITITELETITI LETTE ELITE TITLE LETTE E LETTE TTT itiTi ieee 
2699 013764 100055 ATSS: 100055 ; TEST NUMBER * 
2700 013766 014006 AT56 :ADDRESS OF NEXT TEST * 
2701 013770 000003 3. : ITERATION COUNT * 
2702 013772 014000 ADDA : SCOPE ENTRY POINT * 
2703 000055 X=X+1 * 
2704 ITTIILIT ELITE TELE LILLE LETLI LL LLL LEE iti tiiiiiitiititii ett 
2705 ;DATA TEST USING NORMAL CONFIGURATION 
2706 013774 004737 002706 JSR %7,CDINIT : INIT IF C-D DEVICE 
2707 014000 004537 004770 ADDA: JSR 5,DATTST 
2708 014004 104012 SCOPE 
2709 014006 TSTA 3.,APB,0 
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014006 TSTAA APB,3., X+14+0, X#2, X#1 
SRR E ETE ERATE KEE 
014006 000056 AT5S6: 56 ; TEST NUMBER * 
014010 014100 A157 ADDRESS OF NEXT TEST * 
014012 000003 ae : ITERATION COUNT * 
014014 014022 APBA ; SCOPE ENTRY POINT * 
000056 X=X+1 * 
PITTIIITILILILI LILI LI LITT TTLILILI LLL LiL LTT Lili Litt itiiiiiiiTiiiitiiin 
DATA TEST USING JUMPER CONNECTOR. 
;USES SPECIAL BINARY COUNT PATTERN FOR DATA. NO INTERRUPT: 
014016 004737 004322 JSR 7, INBIN ; INITIALIZE BINARY COUNT PATTERN 
014022 001750 001564 APBA: #1000.,CTRO 7SET CHARACTER COUNT TO 1000 
014030 APBB: ;TIME OUT TX DONE 
014032 ERROR DONE NOT SETTING 
014034 004426 7,GTBINP 7GET BINARY CHARACTER 
014040 001560 %1,CRBUFA SAVE CHAR IN CRBUFA AND 
014044 005374 7,MASKIT 7MASK OFF NON TRANSMITTED BITS 
014050 165342 %1,aTXBUF ;LOAD CHAR. 
014054 ;TIME OUT RX DONE 
014056 ; sERROR DONE NOT SETTING 
014060 165326 001556 @RXBUF , CRBUF ;LOAD RECEIVED DATA INTO CRBUF 
014066 ;CHECK DATA 
014070 001564 CTRO : TESTED 1000 CHARACTERS 
014074 APBB ;BRANCH IF NOT 
014076 104012 YES. SCOPE 
014100 3.,EXT.0 
014100 EXT,3., X+1#0, X#2, X+#1 
pee eeRRR ERE ERRERETEeE ERE eHeeEee eee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee 
014100 000057 ATS7?: 57 : TEST NUMBER * 
014102 014164 AT60 SADDRESS OF NEXT TEST : 
014104 000003 3. ; ITERATION COUNT * 
014106 014110 EXTA :SCOPE ENTRY POINT + 
000057 X=X+1 * 
* 


PTITITITILITITITITIT ITIL IT LILI Titi iitiiiiiiT tte 


; TEST THAT RDR BUSY TURNS OFF RDR ENABLE 
;WHEN RUN ON AN XOR TESTER 
014110 000005 EXTA: T RESET 
014112 165272 @RXCSR ;SET ROR ENABLE, SEE IF RDE IS TURNED OFF BY RDR BUSY 
014116 177770 014154 #-10,3$+2 
014124 014154 2$: 3$+2 ;WAIT LOOP FOR XOR TESTER 
014130 28 
014132 165260 aTXBUF ;SHIP OUT CHAR. 
014136 130000 014154 #-50000, 3$+2 
014144 165240 58: @RXCSR ; TEST COMPLETE 
014150 6$ 
014152 177770 3$: #-10 ;ALLOW TIME FOR RDR DONE TO SET 
014156 5$ 
014160 ;FAILURE OF RDR DONE TO SET 
014162 104012 6$: 
014164 10.,EXx,0 
014164 EX,10., X#1#0, X#2, X+1 
http PPP PPR RRR RARER SRRSRSASEAR ASSESSES ESAS SESE REESE SRS E SERS E CESSES ECS S ESOS OS 
014164 000060 AT60: 60 7 TEST NUMBER 
014166 014234 AT61 ;ADDRESS OF NEXT TEST 
014170 000012 10. s LTERATION COUNT 


\ 
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014172 014174 
000060 


014174 
014176 
014202 
014206 
014212 
014214 
014216 
014224 
014230 
014232 
014234 
014234 


014234 
014236 
014240 
014242 


000005 
004737 
005277 
105777 
100001 
104003 
012737 
005227 
001375 
104012 


014404 
165202 
165176 


177770 
177770 


014226 


000061 


000061 


005737 
100006 
012777 
005777 
000005 
104012 


014244 
014250 
014252 
014260 
014264 
014266 
014270 
014270 


014270 
014272 
014274 
014276 


002016 


177777 
165124 


165130 


000062 
014324 
000003 
014300 
000062 
014300 005737 002016 
177677 
165074 


104012 


165100 


014324 


014324 
014326 
014330 
014332 


100063 


000063 


014334 


004737 002706 
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EXA ' : SCOPE ENTRY POINT * 
X=X+ : * 
ITITITITITITI LITT TITT LITT I TTL TLL t titi iii tii iit i itt ii tit 
TEST THAT WHEN RDR ENABLE IS SET THAT THE RXCSR DONE 
BIT IS CLEARED 
EXA: SET 
PC,STRXD 
@RXCSR 
@RXCSR 
1$ 


#-10,3$+2 
10 


;SET RCVR DONE 
;SET ENABLE 
;DONE SHOULD CLEAR 


;DONE NOT CLEAR 
WAIT 100MIC. SEC. FOR XOR 


A,G 
EXA, 3. X+140, X#2, X41 


ITITTTITITETIITTI TTT TLI TTL TTT TLL LLL LLL LLL LLL LLL LL 
: TEST NUMBER * 
;ADDRESS OF NEXT TEST a 
ITERATION COUNT . 
: SCOPE ENTRY POINT « 

* 

. 


AT61: 61 
ree 


EXAA 
X=X+1 
PITTTITITITITILITITT LITT LLTLT LL LT LTT 
EXAA: wal ; CHECKING JUMPER CONNECTIONS FOR XOR, RCVR 
#-1,aRXCSR 
@RXCSR 


34: 
3.,ExXB,0 
TSTAA EXB,3., X+1#0, X+#2, X+#1 
CPCS iret elit titi titer iii t iit titi titi titi tit iri titi i ier erry 
AT62: 62 ; TEST NUMBER * 
AT63 sADDRESS OF NEXT TEST * 
3. ; ITERATION COUNT * 
EXBA : SCOPE ENTRY POINT * 
X=X+1 * 
+ 


Pee eeeeeeeeeteeeeeteeeeeeeeeeeeeeeeeeeeeeenedeneeeeeeeeeteneneteeeeeeeeeeeeenese 


EXBA: TST XORFLG ;SAME AS ABOVE BUT FOR XMTR 


BPL 43% 
MOV #177677,aTXCSR 
TST aTXxCSR 
RESET 
4$: SCOPE 
TSTAA AQB,10., X+1#CD, LAST, X+1 
PR RAAAA ROAR RATA AAAAAAAA ARATE RATATAT ATTRA TTA AAA Ae AeA AA eee A AeA AeA e ATT 
AT63: 100063 . ; TEST NUMBER ® 
ATLAST ;ADDRESS OF NEXT TEST * 
10. ; ITERATION COUNT ® 
AQBA + SCOPE ENTRY POINT * 
X=X¢1 e 
PITIIIIITILITI LILI LLL 
;TEST THAT WHEN TXCSR BIT O IS SET THAT THE OUTPUT DATA LINE 
IS PULLED TO A SPACE. 
AQBA: JSR 27, CDINIT s INIT IF C-D DEVICE 





SEQ 0052 
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014340 
014346 
014354 
014362 
014364 
014366 
014374 
014376 
014400 
014402 


052777 
052777 
012777 
104017 
104003 
127727 
001401 
104003 
104011 
104012 
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000004 
000001 
000252 


165020 


165046 
165040 
165034 


000000 


BIS #BIT2,aTXCSR SET MAINTENANCE BIT IN TXCSR 
BIS #BITO,aTXCSR SET BREAK BIT 


MOV #252, aTXBUF ;LOAD BUFFER 

TIMERX TIME OUT RX DONE 

ERROR ERROR DONE NOT SETTING 

oo” om” tis ; CHARACTER RECEIVED SHOULD BE 0 
.+ 

ERROR CHARACTER OTHER THAN 0 

SRESET ; ISSUE RESET 

SCOPE 


SEQ 0053 


-MAIN. MACY11_ 30A(1052) 30-MAR-78 08:52 PAGE 54 SEQ 0054 
CZDLAG.P11 30-MAR-78 08:51 


; SUBROUTINE TO SET RXCSR DONE BIT. 
014404 052777 000004 165002 BIS #BIT2,aTXCSR SET MAINTENANCE BIT. 
014412 005077 165000 ;LOAD TXBUF. 
014416 104017 TIME OUT TX DONE 
014420 104003 ERROR DONE NOT SETTING 


014422 000207 RTS 27 sEXIT.. 
; SUBROUTINE TO CHECK THAT CTRO THROUGH CTR3 CONTAIN DESCENDING VALUES. 
014424 023737 001564 001566 CMPT: CMP CTRO,CTRI Th 

014432 101430 CMPTNG ; 

014434 023737 001566 001570 CTR1,CTR2 

014442 101424 CMPTNG 

014444 023737 001570 001572 CTR2,CTR3 

014452 101420 CMPTNG 

014454 023737 001572 001574 CTR3,CTR4 

014462 101414 CMPTNG 

014464 023737 001574 001576 CTR4,CTRS 

014472 101410 CMPTNG 

014474 023737 001576 001600 CTRS,CTR6 

014502 101404 CMPTNG 

014504 023737 001600 001602 CTR6,CTR7 

014512 101002 BHI CMPTOK 

014514 062716 000002 CMPTNG: ADD #2,a%6 

014520 000207 CMPTOK: RTS <7 
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014522 
014524 


014572 


014574 


014670 


104000 


000765 


104000 


000753 
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004132 


003554 
001622 
001622 
001623 
164626 


004132 


003554 


164546 


164534 


014570 
164634 


164566 
014650 
164554 


peekekekete 


;PRG1 - TRANSMITTER SCOPE LOOP 


Ree 


PRG1: 


PRGIA: 


PRG1B: 


ptekeeneeee 


;PRG2 - RECEIVER SCOPE LOOP. 


pettteeeeeee 


PRG2: 


PRG2A: 


PRG2B: 


5,LINSLX 


PC,RDOCT 
(SP)+, TEMP2 
TEMP2,PRG1B 
TEMP2+1 ,aTXBUF 
a@TXCSR 


PRGIA 


5, LINSLX 


PC,RDOCT 
(SP)+, TEMP2 
#BIT2,aTXCSR 
TEMP2,PRG2B 
TEMP2+1 ,aTXBUF 
@TXCSR 


@RXBUF , 20 


PRG2A 


; TYPE PROGRAM TITLE. 


:GO GET LINE # FROM USER 
TYPE SELECT CHAR AND DELAY. 


READ IN DATA. 
STORE DATA. 
;DELAY COUNT TO PRG1B. 


;LOAD TXBUF. 
; TEST FOR DONE. 


++G 
;DELAY # OF MSECS. SET ar SR. 
;REPEAT. 


; TYPE PROGRAM TITLE. 


:GO GET LINE # FROM USER 
; TYPE SELECT CHAR AND DELAY. 


sREAD IN DATA. 
STORE DATA. 


;SET MAINTENANCE BIT. 
sDELAY COUNT TO PRG2B. 
;LOAD TXBUF. 

: TEST FOR DONE 


++G 
sDELAY # OF MSECS. SET IN’ SR. 


;RXBUF CONTENTS TO RO. 
;DISPLAY CONTENTS OF RXBUF (IN RO), 
BY ISSUING 5 RESET INSTRUCTIONS 


SEQ 0055 
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014672 


014724 
014730 


014732 
014734 


014762 


014764 
014772 


015042 
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104000 


000772 


104000 
016545 
004537 
004737 
004737 
110137 
004737 
000771 


032777 


000207 


004132 


003554 
001622 
001623 
014764 


004132 
004322 
004426 
001560 
014764 


000200 


000004 


005374 


164354 


001560 


163202 


164404 
164374 


001556 
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peeeeeeeeee 


;PRG3 - SINGLE CHARACTER MAINTENANCE MODE DATA TEST. 


Peeekeeeeee 


PRG3: TYPE 


PRG3A: MOVB 


peeekkeakee 


3PRG4 - SPECIAL 


ptteeeeeeee 


5,LINSLX 


P_,RDOCT 
(SP)+, TEMP2 
TEMP2+1,CRBUFA 
%7,MOUTIN 
PRG3A 


; TYPE PROGRAM TITLE. 


:GO GET LINE # FROM USER 
TYPE: SELECT CHARACTER. 


:GET TEST CHAR AND DELAY FROM USER. 
STORE TEST CHAR AND DELAY 
;MOVE DATA CHAR TO CRBUFA. 


:60 OUTPUT, RECEIVE, AND CHECK DATA. 


BINARY COUNT MAINTENANCE MODE DATA TEST. 


PRG4: TYPE 
P4TIT 
JSR 5 LINSLX 
JSR 27, INBIN 
PRG4A: JSR %7,GTBINP 
MOVB 721, CRBUFA 
JSR %7,MOUTIN 
BR PRG4A 
; SUBROUTINE TO OUTPUT, RECEIVE, 
MOUTIN: BIT #BIT7,@SRPTR 
BNE +4 
STALL 
TIMETX 
ERROR 
BIS eel aTXCSR 
TST @RXB 
MOV CRBUFA, aTXBUF 
JSR 7,MASKIT 
TIMERX 
ERROR 
MOV @RXBUF , CRBUF 
DATCHK 
RTS 27 


; TYPE PROGRAM TITLE. 


:GO GET LINE # FROM USER 

INITIALIZE BINARY COUNT. 

:GET BINARY CHARACTER. 

SAVE AT CRBUFA. 

:GO OUTPUT, RECEIVE, AND CHECK DATA. 


;REPEAT. 


AND CHECK DATA WITH MAINTENANCE BIT SET. 


;SEE IF BIT 7 IS SET. 
:BRANCH IF SET. 


:SET. DO A RANDOM STALL. 

; TIME OUT TX DONE 

sERROR DONE NOT SETTING 

;SET MAINTENANCE BIT. 

;CLR RX DONE 

;LOAD TXBUF. 

sMASK OFF NON TRANSMITTED BITS 

> TIME OUT RX DONE 

;ERROR DONE NOT SETTING 

;MOVE CHAR IN RX BUFFER TO CRBUF. 
2 oo a EXPECTED AND RECEIVED DATA 
SERE ts 


SEQ 0056 
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sASCII1 MESSAGES 


015044 042045 030514 026461 MTIT: .ASCII ‘%DL11-E,C/D OFLNE TST - CZDLA-G%' 
015052 027503 020104 
015060 047114 020105 
015066 020124 020055 
015074 046104 026501 
015102 
015104 050101 047440 . "ZMAP OF DEVICES PRESENTZa' 
015112 042504 044526 
020123 051120 
047105 022524 


020040 020040 MDEVAD: .ASCII ta’ 
es 
042520 PGMSG: .ASCII '‘ZTYPE IN PROGRAM NUMBER a 
051120 
020115 
051105 
100 
042516 MNONE: .ASCII ‘ZNONE FOUNDZa' 
052517 042116 


EMO: oASCII = “RT* 
020040 041520 ATNUMB: .ASCII ' 


020040 020040 APC: -ASCII 
051503 


020040 MRXNUM: .ASCII 
030107 POTIT: .ASCII ‘%SPRGO - INPUT-OUTPUT LOGIC TESTS. ' 


PC 


"DISCONNECT DL11-E FROM MODEM" 


* AND CONNECT JUMPER TO CABLE.%a' 


042514 022456 


041530 051123 ATXCSR: .ASCII ‘TXCSR S/B: ' 
041057 020072 

020040 020040 ATXSB: .ASCII ' WAS: ' 
040527 035123 


015457 020040 020040 ATXWAS: .ASCII a' 
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2992 015464 040040 

2993 015466 054122 051503 020122 ARXCSR: .ASCII '‘RXCSR S/B: ' 
2994 015474 027523 035102 040 

2995 015501 040 020040 020040 ARXSB: .ASCII ' WAS: ' 
2996 015506 020040 053440 051501 


2998 015516 020040 020040 020040 ARXWAS: .ASCII ' a’ 
3000 015526 054124 051440 042520 ETXTIM: .ASCII ‘TX SPEEDS NOT IN ASCENDING ORDER.@' 


3004 015556 043516 047440 042122 


3006 015570 054122 051440 042520 ERXTIM: .ASCII ‘RX SPEEDS NOT IN ASCENDING ORDER.@' 
3007 015576 042105 020123 047516 
3008 015604 020124 047111 040440 
3009 015612 041523 047105 044504 
3010 015620 043516 047440 042122 


3012 015632 022445 051120 030507 PITIT: .ASCII ‘'X%PRG1 - TRANSMITTER SCOPE LOOPa’ 
3013 015640 026440 052040 040522 
3014 015646 051516 044515 052124 
3015 015654 051105 051440 047503 
3016 015662 042520 046040 047517 


3018 015672 022445 051120 031107 P2TIT: .ASCII ‘'XZPRG2 - RECEIVER SCOPE LOOPa' 

3019 015700 026440 051040 041505 

3020 015706 044505 042526 020122 

3021 015714 041523 050117 020105 

3022 015722 047514 050117 100 

3023 015727 045 054524 042520 SELCAD: .ASCII '‘XTYPE TEST CHAR. CODE IN BITS 15-8,TYPE DELAY TIME IN BITS 7-0' 
3024 015734 052040 051505 020124 


3032 016014 041040 052111 020123 


3033 016022 026467 060 y 
3034 016025 045 043117 040440 «ASCII ‘OF AN OCTAL WORD.%a' Q 
3035 016032 020116 041517 040524 i 


3036 016040 020114 047527 042122 
3038 016051 104 052101 a+? ERDAT: .ASCII ‘DATA S/B: ' 
3040 016063 040 020040 053440 AASB: .ASCII ' WAS: ' 


3042 016074 020040 040 AWAS: .ASCII ‘ ' 

3043 016077 040 054122 052502 | -ASCII * RXBUF: ' 
3044 016104 035106 040 

3045 016107 040 020040 020040 ARXBUr: .ASCTI ' a' 


3046 016114 020040 100 
3047 016117 045 042523 020124 ASETSR: .ASCII '%SET DESIRED SR OPTIONS. NORMAL OPERATION ' 


t 
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016124 042504 044523 042522 


047516 046522 
047440 042520 
“GH4526-O4FT17 _ =“ 


020123 044527 . "IS WITH SR = 000000%a' 

051440 020122 

030060 030060 

040045 

041516 051117 AINCRT: . "ZINCORRECT ROUTINE SELECTED, PLACE CORRECT PROGRAM' 
052103 051040 

044524 042516 

046105 041505 

026104 050040 


047522 051107 


020116 0511 . "ZIN SR O-2 AND PRESS CONTINUE.@' 
031055 0404 . 
050040 042522 
041440 047117 
052516 027105 


047111 040526 AINCPG: . *ZINVALID PROGRAM SELECTED.a' 
020104 %51120 
040522 020115 
042514 052103 
040056 
APGEND: . 


207 
047105 020104 . "ZEND PASS = '' 
051523 036440 


020040 020040 t » LINE = ' 
046040 047111 

020075 040 

020040 051040 is. RXCSR = ' 
051123 036440 


020040 020040 _ VECTOR = ° 
053040 041505 

020122 020075 

eae? 020040 t « , a’ 


00 
05004§ 043522 ts "ZZPRG3-SINGLE CHAR MAINT MODE DATA TES7a' 
044523 043516 
041440 040510 


0 
050045 043522 i "ZZPRG4-SPEC BIN COUNT MAINT MODE DATA TESTa' 
050123 041505 
016560 041040 047111 041440 
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WWWWAWWWdG 
et ced ce aed ced cd eed ed 


016566 
sreans 


017224 
017232 


026440 
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052116 
052116 
020105 
052040 


050131 
052040 
044103 
047503 
020040 


054524 
020116 


047040 
020040 


040522 
052040 


020040 

040 
05112¢ 
020104 
050040 


020040 


052040 


046440 
046440 
040504 
051505 


020105 
051505 
051101 
042504 
022440 


042520 
044514 
027117 

100 
042516 


051501 
041505 


044505 
050123 
944103 


051516 
050123 
044103 


041440 


020117 
020040 


050101 
051106 
020103 


020040 


042504 
050040 
052116 
044510 


SELCAR: 


LDLINE: 


ALINE: 
SELINE: 


MSETRX: 


MSETTX: 


MSETC: 


MTERR: 


MTO: 


MF ROM: 
MNOLIN: 


-ASCII 


-ASCI! 


-ASCII 
ASCII 


-ASCII 


-ASCII 


-ASCII 


-ASCII 


-ASCII 


-ASCII 


-ASCII 


-ASCII 
-ASCII 


SEQ 0060 


"ZTYPE IN TEST CHAR. CODE. ta’ 


"ZTYPE IN LINE NO. a’ 


"ZLINE NO." 
* WAS SELECTED@' 


"ZRECEIVER SPEED CHECKa' 


"ZTRANSMIT SPEED CHECKa' 


"ZSET CLOCK SWITCHES TO POSITION, THEN PRESS CONTINUE.a' 


"ZERROR - UNEXPECTED TRAP' 


"ZTRAPPED TO ' 


"ZTRAPPED FROM PC ' 


] a' 
"ZNO DEVICE PRESENT - THIS LINE NO.@' 
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017240 020123 044514 — 
' 2%a' 


D . : 
047111 . "ZNO INTERRUPTQ@" 
051122 050125 


020123 020075 : ‘ "2CS = Oa’ 
020123 020075 : ‘ "ECS = 
020123 020075 : ‘ "2CS = 
020123 020075 : ‘ "ZCS = 
020123 020075 : . "2CS 
020123 020075 : . "2CS 
020123 020075 : ‘ "2CS 
020123 020075 : ‘ "2CS 


041505 053117 -ASCII '‘%RECOVERED FROM POWER FAILURE@' 
042105 043040 
020115 047520 
020122 040506 
017424 046111 051125 040105 


000001 
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OBR 006514 
AAAA 010052 
AAAB 010066 
AAB 006526 
AABA 013556 
AABB 013602 
AABC 013612 
AABD 013626 
AABE 013632 
AAE 006530 
AASB 016063 
ABA 006546 
ABAA 011130 
BAB 011222 
BB 006566 
BBA 013650 
BBB 013672 
BE 006570 
CA 006606 
CAA 011234 
CAB 011364 
CB 006620 
CBA 013714 
CBB 013752 
CBC 013754 
ACE 006622 
CLIN 016427 
ADA 006640 
DAA 011404 
ADAB 011432 
DAC 011450 
DB 006652 
DDA 014000 
DE 06654 
DTENP 004750 
EA 006672 
EB 006706 
EC 006730 
ED 006750 
FBA 010100 
FBB 010126 
FBC 010152 
GA 006772 
GB 007006 
AGBA 010164 
GBB 010220 
GBC 010254 
GBD 010270 
GBE 010324 
GC 007030 
GD 007050 
IAA 011464 
IAF 011710 
IAS 011712 
AIASA 011742 
IAST 011774 


K 5 


30-MAR-78 08:52 PAGE 63 


1506# 
18554 


2655 


1529 


1584 


18884 


1920 
1610 


2195 
2196 


CROSS REFERENCE TABLE -- USER SYMBOLS 


1586# 


1927 1929 1930# 
16124 


2200 2205 2210 2215 2220 
2201 2206 2211 2216 2221 


22288 
2228+ 


2236* 


22454 


SEQ 0062 
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AINCPG 016337 


AJBD 010436 
AJC 007136 
AJD 007156 
AKA 007200 
AKB 007212 
AKBA 010450 
AKBC 010506 
ALA 007224 
ALAA 012006 
ALAB 012036 
ALAC 012050 
ALBA 010656 
LBB 010704 
LBC 010732 
LBD 010756 
ALINE 016705 
LY 007254 
LZ 007274 
AMAA 012062 
MAC 012114 
MBA 010770 
MBB 011030 
MBC 011044 
MBD 011072 
MBE 011116 
AOAA 012132 
OAB 012150 
OAB1 012164 
OAC 012206 
OAD 012220 
OBA 010544 
OBB 010572 
OBC 010620 
OBD 010644 
PA 007306 
PB 007322 
PBA 014022 
PBB 014030 
PC 015240 
PCNT 016407 
PCX 007344 
PD 007364 
PGEND 016372 
PRXC 016443 
PVEC 016464 
QA 007406 
QAA 012236 
QAB 012462 
QAS 012464 


30-MAR-78 08 
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1957 
1637 


22718 


2038 


16784 


2068 


23194 


2009 


1700 


2352 


CROSS REFERENCE TABLE -- USER SYMBOLS 


1959# 
1639# 


20404 


2072 20744 


20114 


1702# 


2357 2362 2367 2372 2377 





2385¢ 





-MAIN. MACY11 
CZDLAG.P11 
AQASA 012506 
AQAST 012526 
AQB 007422 
AQBA 014334 
AQc 007444 
AQD 007464 
ARA 007506 
ARAA 012540 
ARAS 012654 
ARB 007530 
RC 007552 
ARD 007572 
ARXBUF 016107 
RXCSR 015466 
RXSB 015501 
ARXWAS 015516 
SA 007614 
ASB 007636 
sc 007660 
SD 007700 
ASETSR 016117 
TA 007722 
ATAA 012714 
TAB 012746 
TAC 012750 
TB 007736 
TLAST= 177777 
TNUMB 015230 
TXCSR 015427 
TXSB 015442 
TXWAS 015457 
TO 006504 
T1 006536 
T10 007214 
T11 007276 
T12 007376 
113 007476 
714 007604 
715 007712 
716 007740 
T17 007766 
T2 006576 
T20 010014 
T21 010042 
T22 010070 
723 010154 
T24 010326 
T25 010440 
726 010534 
127 010646 
13 006630 
T30 010760 
T31 011120 
132 011224 
133 011374 
134 011454 
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2353 


1726 


2422 


1753 


1780 


2358 


17284 


24318 


17554 


17824 


2363 


Mm 5 
CROSS REFERENCE TABLE -- USER SYMBOLS 


2368 


2373 


2378 


2385* 


23918 


23954 


SEQ 0064 


N 5 
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011776 





B 6 
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010040 
004604 
004636 
004670 
004672 
004674 
000001 


= 000002 
002000 


100000 
000004 


= 000010 


000020 
000040 
000100 


000200 
000400 
001000 
004572 
004562 
= 100000 


002706 


0 
001306 








C 6 
-MAIN. MACY11_ 30A(1052) 30-MAR-78 08:52 PAGE 68 
CZDLAG.P11 30-MAR-78 08:51 CROSS REFERENCE TABLE -- USER SYMBOLS 


CMAS20 001342 5524 

CMAS21 001344 5534 

CMAS22 001346 5544 

CMAS23 001350 5554 
CMAS24 001352 556# 

CMAS25 001354 557# 

CMAS26 001356 5584 

CMAS27 001360 5594 

CMASS = 001310 5398 
CMAS3O 001362 560# 
CMAS31 001364 5614 
CMAS3S2 001366 5624 
CMAS33 001370 5634 
CMAS34 001372 5644 
CMAS3S 001374 5654 
CMAS36 001376 5664 
CMAS37 001400 567# 
CMAS4 001312 5408 
CMASS 001314 5414 
CMAS6 = 001316 5428 

MAS7 001320 5434 
CMPT 014424 2222 2379 28404 
CMPTNG 014514 2841 2843 2845 2847 2849 2851 28544 
CMPTOK 014520 2853 2855# 

CNVCTR 004742 1187* 1190* 12094 

CONT 005322 1285 12914 

COUNT 001624 6464 991* 1007* 1008 

CRBUF 001556 6274 1230* 1318 1321 2730* 2933+ 
CRBUFA 001560 6284 = 1225* 1311* 1318 1325 2725* 2907+ 
CRBUFB 001562 6294 1315* 1316 1329 

CTRO 001564 630# 1221* 1232* 2186% 2343* 2721* 2732+ 
CTR1 001566 6314 2191* 2348* 2840 2842 
CTR2 001570 6324 2196* 2353* 2842 2844 
CTR3 001572 6334 2201* 2358% 2844 2846 
CTR4 001574 6344 2206* 2363* 2846 2848 
CTRS 001576 635# 2211* 2368 2848 2850 
CTR6 001600 6364 2216* 2373* 2850 2852 
CTR7 1602 6374 2221* 2378* 2852 

CURTST 001454 5934 784 790 843« 

DATAA = 005012 12224 81233 

DATCHK= 104004 4644 1231 2731 2934 

DATTST 004770 1219# 2707 

DECVAL 004762 1182 12174 

DELAY = 104016 4748 832 1048 2261 2433 2574 2870 
DIGIT 004744 1200* 1203* 1206* 1207 12104 
DLCNT 003772 1027* 1029 10404 

DLY 003726 623 10274 

DLYA 003750 10324 1037 

DLYB 003754 10334 1034 

DLYC 003766 1030 10384 

DOTHIS 006216 1430# 2178 2335 

DTCHK = 005424 613 13154 

DTCHKA 005514 1319 1334# 

DTCHKX 005452 1317 13204 

DTERR 017253 1017 31624 

CDAT 003606 9964 997 


2918* 
2840 


2887 


2929 


SEQ 0067 
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EHALT = 104010 


1342* 1343* 13654 


104003 


104015 


1098* 1405* 1451* 
736 
1409# 


1249+ 1466* 
1398+ 


712+ 
821 


2917 


1245# 1479 1480 1481 


001452 1486+ 
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LOLINE 016657 1083 31154 
LINA 004214 10934 1104 
LINB 004222 1092 10964 
LINENO 001614 6424 741* 742* 743* 1087* 1108 1257 1274 1282* 1297* 1416 
LINSEL 004114 10764 1493 
LINSLX 004132 1077 10804 1095 2862 2878 2902 2915 
LOGIC § 005312 421 12874 
ACHER 000004 4044 714* 735* 771% 772* = =1506* 1522* 1540* 1556* 
MANUAL= 100000 4334 
APA 002132 716# 725 734 
APEND 002220 717 7354 
APERR 002304 737 7508 
APNE 002160 714 7234 
APOK 002170 722 7264 
APVEC 006014 410 13964 
ASKIT 005374 1226 1308# 2726 2930 
DEVAD 015135 729 732 29504 
ESS1 001762 672 6744 
FROM 017177 1388 31544 . 
NOLIN 017210 1094 31564 
NONE 015211 751 29584 
OUTIN 014764 2908 2919 29228 
PWRF 017374 1441 31824 
RXNUM 015257 1357 29678 
SETC 017012 2181 2338 31324 
SETRX 016736 2337 31244 
SETTX 016764 2180 31284 
so 017274 2182 2339 31664 
$1 017304 2188 2345 31684 
$2 017314 2193 2350 31704 
$3 017324 2198 2355 31724 
$4 017334 2203 2360 31744 
$5 017344 2208 2365 31764 
$6 017354 2213 2370 31784 
$7 017364 2218 2375 31804 
TERR 017100 1391 31414 
TIT 015044 711 29398 
TO 017145 1384 31484 
OP = 000240 4314 
XTST 001462 596# 770* 791 818 838 840+ 
OACNV = 004474 727 1107 11504 1256 1260 1264 1320 1324 1328 1351 1355 1359 1382 
1386 2092 2096 2129 2133 
DACNVA 004510 1155# 1164 
DACNVX 004560 1151* 1155 1159* 1160* 1161* 1162" 11674 
OLDPS } 001470 599H# = =1374* = =91376* = 1377% =1378% 1379% 1380 
OPEN = 000000 4328 591 592 593 594 596 597 598 614 627 628 629 630 
631 632 633 634 635 636 637 638 639 640 643 867 868 
882 0 899 961 971 1040 1049 1058 1059 1122 1123 1124 
pL 1126 1127 1167 1209 1210 1211 1365 1370 1371 45 2395 2871 
OVRLAY 003516 707 975# 1080 1448 2447 2544 2568 
DVRLYA 003532 9784 983 
OVRLYB 003552 982 9844 
PASCNT 001636 6514 758* 1253 1272* 1281* 
PFAIL 006234 412 703 14354 1437 


PGMSG §=015155 762 29538 


F 6 


.MAIN, MACY11 30A(1052) 30-MAR-78 08:52 PAGE 71 SEQ 0070 
CZDLAG.P11 30-MAR=78 08:51 CROSS REFERENCE TABLE -- USER SYMBOLS 
PIND 004352 1125 11418 
POPSP = 005726 450# 1035 1038 
POPSP2= 022626 4518-724 810 1397 1509 1527 1543 1559 24658 2479 2502 2530 2554 
2578 2601 «= - 2625S 2653 = 2693 
PRGEA 005250 1277# ©1292 
PRGEB 005334. 1280 12948 
PRGEC 005242 1276# 1295 
PRGEND 005122 820 12494 
PRGEXT 005212 1251 12708 
PRGNUM 001450 591# = 766% ~=—-'1470 
RGTAB 001474 601# 768 
PRGXTL 005302 754 1273 «1284 
PRGXT1 005230 1271-12748 
PRGO 006446 601 1486" 
RGOA 006500 1474 14944 
RGOB 006474 1488 14934 
PRG1 = 0014522 602 28604 
PRGIA 0014546 1475  2867# = .2872 
RGIB 014570 2867* 28718 
PRG2 ss 0014574 603 28764 
PRG2A 014620 1476 28834 2895 
PRG2B 014650 2884* 28884 
PRGS = 0014672 604 29004 
PRG3A 014716 1477 29074 ©2909 
PRG 014732 605 29134 
PRG4A 014746 1478  2917# 2920 
PRTYO = 000000 4598 
PRTY1 = 000040 458% 
PRTY2 = 000100 4578 
PRTYS = 000140 456" 
PRTY4 = 000200 455# 588 590 
PRTYS = 000240 4548 
PRTY6 = 000300 4534 
PRTY7 = 000340 411 413 415 452# 1106 1375 1465 1625 1741 1768 2085 2114 
PSW = 177776 429# 719% = 759 6* 1031" 1097 1106* 1374 1375" 1450% 14665* 1625* 1741 
1768 2085* 2114s Tt 2473* 2496* 2497 2519% 2549 2572 2596" 2619% 26208 
* 
PTO 004346 | 1123# 1130 11368 
PTOP 004354 1126# 1139-11458 
11 004350 1124# 911308 91137" 90-1134 = 1135* = 1136‘ 
PTIP 004356 1127# =1139% =1140* 1143* «911448 «11451146 
PWRUP 006244 1435-14374 
OTIT 015270 1490 29694 
1TIT 015632 2861 30128 
2TIT 015672 2877-30184 
3TIT 016475 2901 30944 
4TIT 016545 2914 31014 
CMSK 004040 1054 10584 
DDAT 003570 9924 993 1015 
DOCT 003554 763 987" 1084 2865 2881 2905 
ESTAR 006414 487 1443 14708 
ETRN 003712 1000 1020 
IND 004344 1116" 1118 1119 11228 11328 
MASK 001404 570# 1308* 1309* 1310* 1311 
NCNT 004042 1056* 10594 
RNGEN 003226 911# 1044 1053 


G 6 


-MAIN, MACY11_30A(1052) 30-MAR-78 08:52 PAGE 72 SEQ 0071 

CZDLAG.P11 30-MAR-78 08:51 CROSS REFERENCE TABLE -- USER SYMBOLS 

RP1 003274 911 915* 922 9244 

RP2 003276 914 918 921* 9254 

RREAD 003702 1002 1004 1006 1009 10164 

RSTART 006426 1472 14744 

RSTPC 003114 872* 880 8824 

RSTPSW 003116 873+ 879 8834 

RSTREG= 104014 472# = 1165 1177 1198 

RSTRG 003060 621 8728 

RTNNO 38 001456 5944 760* 782 788 813 839+ 1349 1360 

RXBUF 001412 574m 834 931* 1230 1315 1411* 1525 2287 2319 2388 2408 2417 2423 
242? 2671 2730 2827 2889 2928 2933 

RXBUFIi 001610 6404 2408* 2409 2413 

RXCRO 001200 4954 715 738 742 1090 1278 

RXCR1 001202 4964 

RXCR10 001220 5034 

RXCR11 001222 5044 

RXCRI2 001224 5054 

RXCR13 001226 5064 

RXCR14 001230 5074 

RXCRI5 001232 5084 

RXCR16 001234 509# 

RXCRi7 001236 5104 

RXCR2 001204 497# 

RXCR20 001240 5114 

RXCR21 001242 5124 

RXCR22 001244 5134 

RXCR23 001246 5144 

RXCR24 001250 5154 

RXCR25 001252 5164 

RXCR26 001254 5174 

RXCR27 001256 5184 

RXCR3_ = 001206 4984 

RXCR30 001260 5194 

RXCR31 001262 5204 

RXCR32 001264 5214 

RXCR33 001266 5228 

RXCR34 001270 5234 

RXCR35 001272 5244 

RXCR36 001274 5254 

RXCR4 001210 499# 

RXCR5 = 001212 5004 

RXCR6 = 001214 5014 

RXCR7 = =©001216 5024 

RXCSR 001410 5734 930* 1062 9* 1228 1261 1356 1409* 1507* 1668*  1669* 1670 1674* 


121 
1675 1689 1693* aset 1698* 1699 1702* = 1715 1719* 1720 1724* = =1725 1728* 


RXCSRT 001606 639# 1902" 1911" 1912 1925* 1926 2125* 2126 2134 2667* 
RXEND 001300 5278 716 748 
RXLVL = 001422 5784 891 934* 1424* 2596 2619 









MACY11_ 30A(1052) 


CZDLAG.P11 30-MAR-78 08:5 





001420 
104013 
003020 
104012 


001466 
015727 
016620 
016716 
005070 
004112 
000176 
001176 
104011 


000174 
003210 


001616 


001620 
001622 
004746 
011762 


004110 
104017 
104020 
004106 
004062 


30-MAR-78 08:52 PAGE 73 








2685 
2640 


H 6 
CROSS REFERENCE TABLE -- USER SYMBOLS 
1449+ 







2686 
2683 


1274 
2128 
1422* 
2885 


1949 
2064 


2931 


2772 


1275* 


28344 


1276* 





1277 
2309* 
1425 


1974 
22418 









SEQ 0072 






























1283* =1296* 1297 
2512 


1979 1995 
2390 


-MAIN. MACY11 
CZDLAG.P11 


004066 
0 


001416 
001414 


001604 
001426 
001424 
003342 
003352 
003370 
003416 
003462 
104000 


104001 
003434 
003446 
003464 
003510 
003512 
001402 
000063 


002676 
002020 
001276 


I 6 


30A(1052) 30-MAR-78 08:52 PAGE 74 
CROSS REFERENCE TABLE -- USER SYMBOLS 


30-MAR-78 08:51 


1069 
2243 
994 


992 


10624 
10644 
1349* 
1380+ 


26 
27428 


1403+ 


27678 


2 
27884 


26 
28034 


SEQ 0073 





J 6 
~MAIN. MACY11_ 30A(1052) 30-MAR-78 08:52 PAGE 75 SEQ 0074 
CZDLAG.P11 30-MAR-78 08:51 CROSS REFERENCE TABLE -- USER SYMBOLS 


XORFLG 002016 670* 6804 685* 800 1523 2790 2805 
. = 017432 401" 418 4204 426 481# 4844 486# 4884 6794 753 954 1133 1142 
\eee 1229 1981 2163 2230 2233 2387 2410 2414 2419 2424 2428 2828 


- ABS. 017432 000 


ERRORS DETECTED: 0 


CZDLAG,CZDLAG=CZDLAG.P11 
RUN-TIME: 3 7 1 SECONDS 
RUN-TIME RATIO: 49/13=3.6 
CORE USED: 11K (21 PAGES) 


DOCUMENT PAGES: 74 





